MDS MONITOR LISTING VERSION 1.1 


To be used with MDS 
Monitor Bootstrap 
Version 1.2 
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:SELECTION CODES FOR USER I/O ENTRY POINTS 


0000 

UCI 

Egu 

(CILOC-XTBL)/3 

0001 

uco 

EQU 

(CQLOC-XTBL)/3 

0002 

URl 

EQU 

(RlLOC-XTBL)/3 

0003 

UR2 

EOU 

(R2LOC-XTBL)/3 

0004 

UPl 

EQU 

(PlLQC-XTBL)/3 

0005 

UP2 

EQU 

(P2LQC-XTQL)/3 

0006 

ULl 

EQU 

(LlLOC-XTBL)/3 

0007 

ucs 

EQU 

(CSLOC-XTBL)/3 




COMPUTE BASE ADDRESS OF MONITOR PROPER 


F800 


BASE SET 

OF800H 

BASE ADDRESS OF MONITOR 





TOP 2K OF ADDRESS SPACE 


1 

IF 

DEBUG 



1 

BASE SET 

800H 

DEBUG IN RAM 



ENDIF 





, 




; 4:. 




; START OF 

« 

MONITOR PROPER 


F800 


GRG 

BASE 




f 

; BRANCH TABLE FOR I/O SYSTEM 


F800 


begin: 



F800 

C330F8 

JMP 

START 

RESET ENTRY POINT 

F803 

C3A2FC 

JMP 

Cl 

CONSOLE INPUT 

F806 

C3D5FC 

JMP 

R1 

READER INPUT 

F809 

C33AFD 

JMP 

CO 

CONSOLE OUTPUT 

F80C 

C36FFD 

JMP 

PO 

PUNCH OUTPUT 

F80F 

C3A1FD 

JMP 

LO 

LIST OUTPUT 

F812 

C3C1FD 

JMP 

CSTS 

CONSOLE INPUT STATUS 

F8'15 

C3E8FD 

JMP 

lOCHK 

I/O SYSTEM STATUS 

F818 

C3ECFD 

JMP 

lOSET 

SET I/O CONFIGURATION 

F81B 

C3F1FD 

JMP 

MEMCK 

COMPUTE SIZE OF MEMORY 

F81E 

C3F9FD 

JMP 

lODEF 

DEFINE USER I/O ENTRY POINTS 

F821 

C316FE 

JMP 

SPCL 

OPEN, CLOSE, REWIND ENTRY POINT 

F824 

0826 

DW 

DATE 

DATE STAMP FOR MONITOR ROM 




ERROR EXIT. 

THIS ABNORMAL EXIT IS EXECUTED FOR ALL MONITOR ERROR CONDITIONS. 
THE STACK POINTER VALUE IS RECOMPUTED BECAUSE OF ITS UNKNOWN STATE 
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AS THE RESULT OF A COMMAND OR DATA ERROR. 

REGISTER USAGE 

X = MODIFIED BT THIS ROUTINE, CONTENTS UNDEFINED. 
S = SET BY THIS ROUTINE, RETURNED AS A RESULT. 

U = USED AS INPUT. 

A - 
B - 
D ~ 

H - X 
CARRY - X 
SIGN - X 
SP - S 

STACK USAGE: 


F826 



ERROR: 



1 


+ 

GET 

TOS 

F826 

1 

2A0400 

+ 

LHLD 

MEMTOP 

F829 

1 

2EC8 

+ 

MVl 

L,TOS AND OFFH 

F82B 


F9 


SPHL 


F82C 


CD64FD 


CALL 

COMC 

F82F 


2A 

i 

Db 

»* * 


MAIN COMMAND LOOP. 

THIS LOOP IS THE STARTING POINT OF ALL COMMAND SEQUENCES. 
IN THIS CODE INTERRUPTS ARE ENABLED AND A CARRIAGE RETURN 
AND LINE FEED ARE TYPED ALONG WITH THE PROMPT CHARACTER, 
WHEN A CHARACTER IS ENTERED FROM THE CONSOLE KEYBOARD, IT 
IS CHECKED FOR VALIDITY, THEN A BRANCH TO THE PROPER 
PROCESSING ROUTINE IS COlMPUTED. 

REGISTER USAGE 

X = MODIFIED BY THIS ROUTINE, CONTENTS UNDEFINED. 

S = SET BY THIS ROUTINE, RETURNED AS A RESULT. 

U = USED AS INPUT. 

A - X 
B - X 
D - S 
H - X 
CARRY - X 
SIGN - X 
SP - X 

STACK USAGE; 


C - S 
E - S 
L - X 
ZERO - X 
PARITY - X 
PC - X 
4 BYTES 


C - S 
E - 

L - X 
ZERO - X 
PARITY - X 
PC - 
2 BYTES 
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F830 



START 

: 




F830 


DBFF 


IN 

RTC 

f 

LOOP UNTIL BOOTSTRAP MODE IS DISABLED 

F832 


E602 


ANI 

BOOT 



F834 


C230F8 


JNZ 

START 



F837 


F8 


El 


9 

ENABLE INTERRUPTS 

Fb38 


CD40FE 


CALL 

CRLF 

9 

TYPE <CR>,<LF> 

F83B 


CD64FD 


CALL 

COMC 

9 

OUTPUT A PERIOD 

F8 3E 


2E 


DB 

# 9 

m 



F83F 


CDE8FF 


CALL 

TI 

• 

9 

GET A CHARACTER, ECHO IT. 

F842 


D641 


SUI 

'A' 

• 

9 

TEST FOR A-X 

F844 


FA30F8 


JM 

START 

• 

9 

LT A, IGNORE 

F847 


0E02 


MVI 

C,2 

9 

C IS SET UP FOR 2 PARAMETER COMMANDS 

F849 


1130F8 


LXi 

D,START 

9 

SET UP PSEUDO RETURN ADDRESS 

F84C 


D5 


PUSH 

D 

9 

TO SIMULATE EFFECT OF CALL 


1 


+ 

CASE 

CTBL,LCT 

9 

BRANCH TO PROCESSING ROUTINE 

F84D 

1 

215FF8 

+ 

LXI 

H,C16L 



F850 

i 

FE18 

+ 

CPI 

LCT 

9 

TEST FOR OVERRUN 

F852 

l’ 

F226F8 

+ 

JP 

ERROR 



F855 

1 

5F 

+ 

MOV 

E,A 

9 

MOVE INDEX TO DE 

F856 

1 

1600 

+ 

MVI 

D,0 



F858 

1 

19 


DAD 

D 

9 

ADD BASE + 2 ♦ INDEX -> HL 

F859 

1 

19 


DAD 

D 



F85A 

1 

7E 

+ 

MOV 

A , M 

9 

GET LSB OF BRANCH LOCATION 

F85B 

1 

23 


I.NX 

H 



F85C 

1 

66 

+ 

MOV 

H,M 

9 

GET MSB OF BRANCH LOCATION 

F85D 

1 

6F 

+ 

MOV 

L,A 



F85E 

1 

E9 


PCHL 


9 

TAKE THE BRANCH 




; COMMAND BRANCH TABLE. 

f 

; THIS TABLE CONTAINS THE ADDRESSES OF THE ENTRY POINTS OF 
; ALL THE COMMAND PROCESSING ROUTINES. MOTE THAT AN ENTRY TO 'ERROR' 
; IS AN ERROR CONDITION, I.E., NO COMMAND CORRESPONDING TO THAT 
; CHARACTER EXISTS. 

F85F CTBL; 


F85F 

8FF8 

DW 

ASSIGN 

A 

- 

ASSIGN I/O UNITS 

F8bl 

0CF9 

Dw 

BNPF 

b 

- 

PUNCH BNPF 

F863 

49F9 

DW 

COMP 

C 

- 

COMPARE PROM WITH MEMORY 

F865 

94F9 

DW 

DISP 

D 

- 

DISPLAY RAM MEMORY 

F867 

C8F9 

DW 

EOF 

E 

- 

ENDFILE A HEXADECIMAL FILE 

F869 

E6F9 

DW 

FILL 

F 

- 

FILL MEMORY 

F86B 

F5F9 

DW 

GOTO 

G 

- 

GO TO MEMORY ADDRESS 

F86D 

3EFA 

DW 

HEXN 

H 

- 

HEXADECIMAL SUM AND DIFFERENCE 

F86F 

26F8 

DW 

ERROR 

I 

- 


F871 

26F8 

DW 

ERROR 

J 

- 


F873 

26F8 

DW 

ERROR 

K 

- 


F875 

59FA 

DW 

LOAD 

L 

- 

LOAD BNPF TAPE 

F877 

8EFA 

DW 

MOVE 

M 

- 

MOVE MEMORY 
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F8 7 9 

9FFA 



DW 

NULL 


N - PUNCH NULLS FOR LEADER 

F87B 

26F8 



DW 

ERROR 


0 - 

F87D 

B7FA 



DN 

PROG 


P - PROGRAM A PROM 

F87F 

F5FA 



DW 

QUERY 


Q - QUERY I/O SYSTEM STATUS 

F881 

33FB 



DW 

READ 


R - READ HEXADECIMAL FILE 

F883 

93FB 



DW 

SUBS 


S - SUBSTITUTE MEMORY 

F885 

BIFB 



DW 

TRAN 


T - TRANSFER A PROM TO MEMORY 

F887 

26F8 



DW 

ERROR 


U - 

F889 

26F8 



DW 

ERROR 


V - 

F88B 

DDFB 



DW 

WRITE 


W - nlRITE HEX TAPE 

F88D 

22FC 



DW 

X 


X - EXAMINE AND MODIFY REGISTERS 

0018 


I 

.CT 

EQU 

($-CTBL)/2 












PROCESS I/O 

DEVICE ASSIGNMENT COMMANDS. 




THIS ROUTINE MAPS SYMBOLIC DEVICE IDENTIFIERS TO BITS 




IN 

THE I/O 

STATUS BYTE 

(lOBYT) TO ALLOW FDR CONSOLE 




MODIFICATION OF SYSTEM 

I/O CONFIGURATION. 

F88F 



\ssign; 




F88F 

CDE8FF 



CALL 

Ti 


; GET LOGICAL DEVICE CHARACTER 

F892 

21DCF8 



LXI 

H,LIbL 


; ADDRESS OF MASTER TABLE 

F895 

0E04 



MVI 

C,4 


; MAXIMUM OF 4 ENTRIES 

F897 



Aso; 





F897 

BE 



CMP 

M 


; TEST FOR IDENTIFYING CHARACTER 

F898 

23 



ItMX 

H 



F899 

CAA6F8 



JZ 

ASi 


; FOUND IT 

F89C 

23 



INX 

H 


; POINT TO NEXT ENTRY 

F89D 

23 



I NX 

H 



F89E 

23 



INX 

H 



F89F 

OD 



DCR 

C 


; DECREMENT LOOP COUNT 

F8A0 

C297F8 



JNZ 

ASO 


; TRY.NE.XT ENTRY 

F8A3 

C32bF8 



JMP 

ERROR 


; NO'MATCH, ERROR 

F8A6 



ASi; 





F8A6 

46 



MOV 

B,M 


; GET SELECT BIT MASK 

F8A7 

23 



INX 

H 



F8A8 

5E 



MOV 

E,M 


; GET PHYSICAL DEVICE TABLE 

F8A9 

23 



INX 

H 



F8AA 

56 



MOV 

D,M 



F8AB 

EB 



XCHG 





1 



UNTIL 




F8AC 

1 

+ LUOP 

: 




F8AC 

1 CD^SFF 

+ 


CALL 

TI 



F8AF 

1 FE30 

+ 


CPI 

' =' 



F8B1 

1 C2ACF8 

+ 


JNZ 

LOOP 




1 



WHILE 

• » , » # , 



F8B4 

1 

+Loap 

: 




F8B4 

1 CDE8FF 



CALL 

TI 



F8B7 

1 FE20 

+ 


CPI 

» # 
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F8B9 

1 

CAB4F9 

+ 

JZ 

LOOP 




F8BC 


0E04 


MVI 

C,4 


; SET TABLE LENGTH 


F8BE 



AS2; 



; INDEX THROUGH PHYSICAL UNIT TABLE 

F8BE 


BE 


CMP 

M 


; COMPARE DEVICE CHAR WITH LEGAL 

VALUES 

F8BF 


23 


INX 

H 




F8C,0 


CACBF8 


JZ 

AS3 


; RETURN WITH HL -> DEVICE SELECT 

BITS 

f8C3 


23 


INX 

H 




FRC4 


OD 


OCR 

C 




F8C5 


C2BEF8 


JNZ 

AS2 


; CONTINUE LOOKUP 


F8C8 


C32bF8 


JMP 

ERROR 


! ERROR RETURN 


F8CB 



AS3; 






1 


+ 

UNTIL 

CR 




F8CB 

1 


+LOOP: 





F8CB 

1 

CDE8FF 

+ 

CALL 

n 




F8CE 

1 

FEOD 

+ 

CPI 

CK 




F8U0 

1 

C2CBF8 

+ 

JNZ 

LOOP 




F8D3 


3A0300 


LDA 

lOBYT 


; GET I/O STATUS 


F8D6 


AO 


ANA 

3 


; CLEAR FIELD 


F8D7 


B6 


GRA 

M 


; SET NEW STATUS 


F8D8 


320300 


STA 

lOBYT 


; RETURN TO MEMORY 


F8DB 


C9 


RET 









' 

MASTER I/O 

DEVICE TABLE 








4 BYTES/ENIRY 








f 

BYTE 0 

= identifying 

CHARACTER 






BYTE 1 

= LOGICAL DEVICE 

MASK 






BYTES 2 

,3 = SUBORDINATE 

PHYSICAL DEVICE TABLE 


F8DC 




jTbl; 





F8DC 


43FC 


DB 

'C',CMSK 




F8DE 


ECF8 


ow 

ACT 




F8E0 


52F3 


DB 

'R' ,RMSK 




F8E2 


F4F8 


DW 

ART 




F8E4 


50CF 


DB 

'P' ,PMSK 




F8E6 


FCF8 


OW 

APT 




F8E8 


4C3F 


DB 

'L',LMSK 




F8EA 


04F9 


Di/v 

ALT 








I/O SYSTEM 

PHYSICAL DEVICE 

TABLES 






2 BYTES/ENTPY 








BYTE 0 = 

IDENTIFYING CHARACTER 






BYTE 1 = 

DEVICE SELECT 

BIT PATTERN 


F8EC 




\ct: 





F8EC 


5400 


DB 

'T' ,CTTY 


; CONSOLE = TTY 


F8EE 


4301 


DB 

'C ' ,CCRT 


; CONSOLE = CRT 


FaFO 


4202 


DB 

'B' ,BATCH 


; BATCH MODE CONSOLE = READ,LIST 


F8F2 


3103 


DB 

'1',CUSE 


; USER DEFINED CONSOLE DEVICE 


F6F4 



art; 
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F8F4 

5400 


DB 'T',RTTT 


; READER = TTY 

F8F6 

5004 


DB 'P*,RPTR 


; READER = PTR 

F8F8 

3108 


DB 'l',RUSEl 


? USER DEFINED READER DEVICE 1 

F8FA 

320C 


DB '2',RUSE2 


; USER DEFINED READER DEVICE 2 

F8FC 

APT; 




F8FC 

5400 


DB 'T'.PTTY 


; PUNCH = TTY 

F8FE 

5010 


DB 'P',PPTP 


; PUNCH = PTP 

F900 

3120 


DB 'l',PUS£l 


; USER DEFINED PUNCH DEVICE 1 

F902 

3230 


DB '2',PUSE2 


7 USER DEFINED PUNCH DEVICE 2 

F904 

ALT; 




F904 

5400 


DB *T',LfTY 


; LIST = TTY 

F906 

4340 


DB 'C',LCRT 


; LIST = CRT 

F90e 

4C80 


DB 'L',LLPT 


; LIST = LPT 

F90A 

31C0 


DB 'l',LUSE 


; USER DEFINED LIST DEVICE 





-t 




PUNCH A BNPF TAPE. 





THIS 

ROUTINE EXPECTS TWO 

HEXADECIMAL PARAMETERS TO BE 



ENTERED FROM THE CONSOLE 

AND INTERPRETS THEM AS 



THE 

BOUNDS OF A MEMORY 

AREA TO BE PUNCHED ON THE 



ASSIGNED PUNCH DEVICE 

IN 

BNPF FORMAT. THE TAPE 



PRODUCED IS FORMATTED 

WITH 4 BNPF 8-BIT WORDS PER 



LINE 

• 



F90C 


iNPF: 




F90C 

CD7FFE 


CALL EXPR- 


; GET TWO ADDRESSES 

F90F 

CD40FE 


CALL CRLF 



F912 

CD12FE 


CALL lOCON 


; OPEN PUNCH FOR OUTPUT 

F915 

06 


OB OPFLG 



F916 

CDCOFE 


CALL LEAD 



F919 

D1 


POP D 


; GET HIGH ADDRESS 

F91A 

El 


POP H 


; GET LOW ADDRESS 

F91B 

BNO; 




F91B 

CD6BFD 


CALL POC 



F91E 

42 


DB '6' 


; PUNCH A 'B' 

F91F 

0608 


MV I B,8 


; 8 BIT COUNT 

F921 

7E 


MOV A,M 


7 GET DATA 

F922 

BNl : 




F922 

07 


RLC 


; ROTATE TO SET CARRY 

F923 

F5 


PUSH PSW 


; SAVE INTERMEDIATE RESULT 

F924 

3E27 


MVI A,'N'/2 


7 COMPUTE EITHER 'P' OR 'N' 






7 BASED ON THE FOLLOWING ALGORITHM 

F926 

CEOO 


AC I 0 


7 CHAR = 'NV2 + CARRY 

F928 

87 


ADD A 


7 CHAR = CHAR ♦ 2 






; CHAR = 'N' IF CARRY = 0 

F929 

4F 


MOV C,A 


,• CHAR = *P' IF CARRY = 1 

F92A 

CD6FFD 


CALL PO 



F920 

FI 


POP PSW 



F92E 

05 


DCP 8 




0 PAGE 18 
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F92F 

C222F9 

JNZ 

BNl 




F93? 

CD6BFD 

CALL 

POC 




F935 

46 

DB 

'F* 




F936 

CD6BFD 

CALL 

POC 




F939 

20 

DB 

« § 




F93A 

CD92FE 

CALL 

HILO 




F93D 

DAABFA 

JC 

NUO 



; ALL DONE, PUNCH TRAILER AND RETURN 

F940 

7D 

MOV 

A,L 




F941 

E603 

ANI 

03H 



; PUNCH CR,LF ON MULTIPLE OF 4 

F943 

CC2EFF 

cz 

PEOL 




F946 

C316F9 

JMP 

BNO 







1 

I 

1 

1 

1 






COMPARE 

PROM W-ITH 

MEMORY. 




THIS ROUTINE EXPECTS 

(1) AN 

OPTION CHARACTER CX,Y,Z) 



WHICH SPECIFIES WHICH 

SOCKET 

OPTION IS SELECTED, AND 



(2J TWO 

HEXADECIMAL PARAMETERS WHICH IT INTERPRETS 



AS THE RAM MEMORY 

AREA WHICH 

IS TO BE COMPARED TO THE 



CONTENTS 

OF THE PROM 

IN THE 

SELECTED PROGRAMMING SOCKET. 



ALL DIFFERENCES BETWEEN THE 

PROM AND THE MEMORY AREA 



WILL BE 

DISPLAYED 

ON 

THE CONSOLE IN THE FOLLOWING 



FORMAT: 







<MEM ADDRESS> <MEM 

CONTENTS> 

<CORRESPONDING. PROM CONTENTS> 

F9<i9 

C 

:gmp: 





F949 

GDB6FF 

CALL 

SELECT 



; SELECT SOCKET 

F94C 

C5 ■ 

PUSH 

B 



; SAVE PROM ADDRESS AND COMMAND 

F94D 

0E02 

MVI 

C,2 




F94t 

C07FFE 

CALL 

EXPR 



? GET MEMORY AREA 

F952 

D1 

POP 

D 



; HIGH ADDRESS 

F953 

El 

POP 

H 



; LOW ADDRESS 

F954 

Cl 

POP 

B 



; POP PROM ADDRESS 

F9S5 

C5 

PUSH 

B 



? SAVE BIX MASK 

F95b 

OEOO 

MVI 

C,0 



; ZERO 8 LSB OF PROM ADDRESS 

F958 

CMO : 





F958 

78 

MOV 

A,B 




F959 

D3F1 

OUT 

PHI 



; OUTPUT COMMAND AND 4 MSB 

F95B 

79 

MOV 

A,C 




F95C 

D3F2 

OUT 

PLO 



; OUTPUT 8 LSB 

F95E 

DBFO 

IN 

PDAIA 



; READ PROM 

F960 

E5 

PUSH 

H 




F961 

210400 

LXI 

H,MSK 



; FETCH T/F FLAG 

F964 

AE 

XRA 

M 




F965 

El 

POP 

H 




F966 

AE 

XRA 

M 



; COMPARE PORT WITH MEMORY 

F9b7 

E3 

XTHL 




; GET BIT MASK 

F968 

A5 

ANA 

L 




F969 

E3 

XTHL 
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F96A 

CA8BF9 

JZ 

CMI 

9 

OK 

F96D 

C5 

PUSH 

8 

0 

t 

SAVE ADDRESS 

F'^6E 

CD40FE 

CALL 

CRLF 

9 

NEW LINE FOR ERROR DISPLAY 

F971 

CDA2FE 

CALL 

LADR 

9 

DISPLAY MEMORY ADDRESS 

F974 

CD2EFD 

CALL 

BLK 



F977 

7E 

MOV 

A-,M 

9 

DISPLAY MEMORY CONTENTS 

F978 

CDAAFE 

CALL 

L6YTE 



F97B 

CD2EFD 

CALL 

BLK 



F97E 

DBFO 

IN 

PDATA 



F980 

CDAAFE 

CALL 

LBYTE 

9 

DISPLAY PROM CONTENTS 

F983 

DBFl 

IN 

PSTAT 



F985 

£602 

AN I 

PCdMP 



F9B7 

CA2.6F8 

JZ 

ERROR 



F98A 

Cl 

POP 

B 

9 

RESTORE PROM ADDRESS 

F98B 


CMl: 




F98B 

03 

I MX 

B 

9 

INCREMENT PROM ADDRESS 

F98C 

CD92FE 

CALL 

HILO 

9 

TEST FOR COMPLETION 

F98F 

D258F9 

JNC 

CMO 



F992 

Cl 

POP 

B 

9 

FLUSH MASK OFF STACK 

F993 

C9 

RET 






f 

« ^ 


: 4 c. 



; DISPLAY 

MEMORY IN HEX ON 

LIST 

DEVICE. 


THIS ROUTINE EXPECTS TWO HEXADECIMAL PARAMETERS SPECIFYING 
THE BOUNDS OF A MEMORY AREA TO BE DISPLAYED ON THE 
LIST DEVICE. THE MEMORY AREA IS DISPLAYED 16 BYTES 
PER LINE, WITH THE MEMORY ADDRESS OF THE FIRST BYTE 
PRINTED FOR REFERENCE. ALL LINES ARE BLOCKED INTO INTEGRAL 
MULTIPLES OF lb FOR CLARITY, SO THAT THE FIRST AND LAST 
LINES MAY BE LESS THAN 16 BYTES IN ORDER TO SYNCHRONIZE THE 
DISPLAY. 


F994 

F994 

C07FFE 

9 

DISP: 

CALL 

EXPR 

9 

GET TWO ADDRESSES 

F997 

D1 


POP 

D 

9 

GET HIGH ADDRESS 

F998 

El 


POP 

H 

9 

GET LOW ADDRESS 

F999 

CD12FE 


CALL 

lOCON 

9 

OPEN LIST FOR- OUTPUT 

F99C 

F99D 

OC 

DIO; 

OB 

OLFLG 



F99D 

CDB6FE 


CALL 

LCRLF 

9 

PRINT CR,LF 

F9A0 

F9A3 

C049FE 

Dll; 

CALL 

DADR 

9 

PRINT MEMORY ADDRESS 

F9A3 

0E20 


MVI 

C,' ' 



F9A5 

CD97FD 


CALL 

LOM 

9 

PRINT SPACE 

F9A8 

7E 


MOV 

A,M 



F9A9 

CD51FE 


CALL 

DBYTE 

9 

PRINT DATA 

F9AC 

CD92FE 


CALL 

HILO 

9 

TEST FOR COMPLETION 

F9AF 

DABBF9 


JC 

DI2 

; 

RETURN TO MAIN LOOP 

F9B2 

70 


MOV 

A,L 
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F9B3 

E60F 

ANI 

OFH 

• 

f 

PRINT 

CR,LF,ADDRESS ON MULTIPLE OF 16 

F9B5 

C2A3F9 

JNZ 

Oil 




F9B8 

C39DF9 

JMP 

DIO 




F9BB 


DI2: 





F9BB 

CDB6FE 

CALL 

LCRLF 

i 

WRITE 

CR,LF 

F9BE 

CD12FE 

CALL 

lOCON 

7 

CLOSE 

LIST OUTPUT 

F9C1 

OF 

DB 

CLFLG 




F9C2 

OEOO 

MVI 

C,0 




F9C4 

CD97FD 

CALL 

LOM 

9 

WRITE 

A NULL TO TRIGGER CLOSE 

F9C7 

C9 

RET 








END OF FILE COMMAND. 

THIS ROUTINE PRODUCES A TERMINATION RECORD NHICH PROPERLY 
COMPLETES A HEXADECIMAL FILE CREATED BY *W' COMMANDS. IF 
THE OPTIONAL HEXADECIMAL PARAMETER IS SPECIFIED, A START 
RECORD IS PRODUCED. A SUBSEQUENT 'R* COMMAND WILL LOAD 
THE FILE CREATED AND IF A START RECORD IS ENCOUNTERED, 

THE ENTRY POINT ADDRESS READ WILL REPLACE THE STORED 
VALUE OF THE PROGRAM COUNTER. 


F9C8 

F9C8 

OD 

EOF: 

DCR 

c 

GET ONE PARAMETER 

F9C9 

CD7FFE 

CALL 

EXPR 


F9CC 

CD6BFD 

CALL 

POC 


F9CF 

3A 

DB 

* % • 

OUTPUT RECORD MARK 

F9D0 

AF 

XRA 

A 

ZERO CHECKSUM 

F9D1 

57 

MOV 

D, A 


F9D2 

CD09FF 

CALL 

PBYTE 

OUTPUT RECORD LENGTH 

F9D5 

El 

POP 

H 

RETRIEVE PARAMETER 

F906 

CDOIFF 

CALL 

PADR 

OUTPUT IT. 

F9D9 

3E01 

MVI 

A,1 

RECORD TYPE 

F9DB 

CD09FF 

CALL 

PBYTE 

OUTPUT IT. 

F9DE 

AF 

XRA 

A 


F9DF 

92 

SUB 

D 

COMPUTE CHECKSUM 

F9E0 

C009FF 

C ALL 

PBYTE 

OUTPUT IT. 

F9E3 

C3ABFA 

JMP 

NUO 

PUNCH TRAILER AND RETURN 


FILL RAH MEMORY BLOCK WITH CONSTANT. 

THIS ROUTINE EXPECTS THREE HEXADECIMAL PARAMETERS, THE 
FIRST AND SECOND (16 BITS) ARE INTERPRETED AS THE BOUNDS 
OF A MEMORY AREA TO BE INITIALIZED TO A CONSTANT VALUE, 
THE THIRD PARAMETER (8 BITS) IS THAT VALUE. 


F9E6 


FILL; 



F9Eb 

OC 

INK 

C 

; GET 3 PARAMETERS 









8080 MACRO ASSEMBLER, VER 2.3 INTELLEC/MDS MONITOR, VERSION 1.1, 26 AUGUST 1975 ERRORS = 0 PAGE 22 


F9E7 

CD7FFE 

CALL 

EXPR 



F9EA 

Cl 

POP 

e 


GET DATA IN C 

F9EB 

D1 

PUP 

D 

f 

GET HIGH ADDRESS 

F9EC 

El 

POP 

H 

f 

GET LOW ADDRESS 

F9ED 


FIO: 




F9ED 

71 

MOV 

M,C 

9 

STORE CONSTANT IN MEMORY 

F9EE 

CD92FE 

CALL 

HILO 

9 

TEST FOR COMPLETION 

F9F1 

D2EDF9 

JNC 

FIO 

9 

CONTINUE LOOPING 

F9F4 

C9 

RET 





GO TO <ADDRESS>, OPTIONALLY SET BREAKPOINTS. 

THE G COMMAND IS USED FOR TRANSFERRING CONTROL FROM THE 
MONITOR TO A USER PROGRAM. IT HAS SEVERAL MODES OF 
OPERATION. 

IF ONE HEXADECIMAL PARAMETER IS ENTERED, IT IS INTERPRETED 
AS THE ENTRY POINT OF THE USER PROGRAM AND A TRANSFER TO 
THAT LOCATION IS EXECUTED. 

IF ADDiriONAL (UP TO 2) PARAMETERS ARE ENTERED, THESE ARE 
CONSIDERED 'BREAKPOINTS', I.E., LOCATIONS WHERE 
CONTROL IS TO BE RETURNED TO THE MONITOR, IF THEY ARE 
ENCOUNTERED. 

IF THE FIRST PARAMETER IS NOT ENTERED, THE STORED VALUE 
OF THE USER'S PROGRAM COUNTER (REGISTER P) IS USED AS 
THE USER PROGRAM ENTRY POINT. 


F9F5 GOTO: 



1 



GET 

EXIT 



; 

POINT RETURN ADDRESS 

AT USER CODE 

F9F5 

1 

2A0400 

+ 

LHLD 

MEMTOP 






F9F8 

1 

2ED2 

+ 

MV I 

L,EXIT 

AND 

OFFH 




F9FA 


£3 


XTHL 





REPLACE RETURN TO COMMAND LOOP 

F9FB 


CDIFFF 


CALL 

PCHK 



9 

GET A CHARACTER, SET 

Z,C 

F9FE 


CAODFA 


JZ 

GOO 



9 

DON'T MODIFY PC 


FAOl 


CDDIFE 


call 

PAO 




GET NEW PC VALUE 


FA04 


EB 


XCHG 





DE = NEW PC 



1 


+ 

GET 

PLOC 






FA05 

1 

2A0400 


LHLD 

MEMTOP 






FA08 

1 

2EE1 

+ 

MVI 

L,PLOC 

AND 

OFFH 




FAOA 


7 2 


MOV 

M,D 



9 

STORE MODIFIED PC IN 

RAM 

FAOB 


2 B. 


OCX 

h 






FAOC 


7 3 


MOV 

M,E 






FAOD 



GOO: 








FAOD 


DA3AFA 


JC 

G04 



9 

NC TRAPS TO BE SET 


FAIO 


110200 


LXI 

D,2 



9 

SET COUNTER(S), D=0, 

E=2 

FA13 



GOl; 








FA13 


CD64FD 


CALL 

COMC 



9 

ISSUE A PROMPT FOR A 

TRAP 
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FA16 


2D 


DB 

* m * 

FA17 


CDCBFE 


CALL 

PARAM 

FAIA 


E5 


PUSH 

H 

FAIS 


14 


INR 

D 

FAIC 


DA23FA 


JC 

G02 

FAlF 


ID 


DCR 

E 

FA/0 


C213FA 


JNZ 

GOl 

FA2 3 



G02: 



FA23 


D226F8 


JNC 

ERROR 


1 


+ 

GET 

TLQC 

FA26 

1 

2A0400 

+ 

LHLD 

MEM.TOP 

FA29 

1 

2EE2 


MVI 

L,TLOC AND 

FA2B 



G03: 



FA2B 


Cl 


POP 

B 

FA2C 


71 


MOV 

M,C 

FA-2D 


23 


INX 

H 

FA2E 


70 


MOV 

M,B 

FA2F 


23 


INX 

H 

FA30 


OA 


LOAX 

B 

FA31 


77 


MOV 

M,A 

FA32 


23 


INX 

H 

FA33 


3EC7 


MVI 

A,{RST 0) 

FA35 


02 


STAX 

B 

FA36 


15 


DCR 

0 

FA37 


C22BFA 


JNZ 

GO 3 

FA3A 



GQ4: 



FA3A 


CD40FE 


CALL 

CRLF 

FA3D 


C9 


RET 





1 

1 




; GET A TRAP 
; STACK IT 
; UP 1 COUNTER 
; TERMINATE IFCR ENTERED 
; DOWN THE OTHER 
; GET ONE MORE TRAP 

; LAST TRAP NOT FOLLOWED BY CR 
; LOCATE TRAP AREA 

OFFH 

; GET ONE TRAP 

; STORE TRAP ADDRESS IN TRAP AREA. 


; FETCH OPCODE BYTE 
; PUT IN TRAP AREA 

; SET TRAP OPCODE 


; RETURN TO USER CODE 


COMPUTE HEXADECIMAL SUM AND DIFFERENCE. 

THIS ROUTINE EXPECTS TWO HEXADECIMAL PARAMETERS, 

IT COMPUTES THE SUM AND DIFFERENCE OF THE TWO VALUES 
AND DISPLAYS THEM ON THE CONSOLE DEVICE AS FOLLOWS: 


; <PlfP2> <P1-P2> 
FAiE HEXN: 


FA3E 

CD7FFE 

CALL 

EXPR 

r 

GET TWO NUMBERS 

FA41 

CD40FE 

CALL 

CRLF 



FA44 

D1 

POP 

D 



FA45 

El 

POP 

H 



FA46 

E5 

PUSH 

H 



FA47 

19 

DAD 

0 

? 

COMPUTE HL+DE 

FA48 

CDA2FE 

CALL 

LADR 

f 

DISPLAY SUM 

FA4B 

CD2EFD 

CALL 

BLK 

9 

TYPE A SPACE 

FA4E 

El 

POP 

H 



FA4F 

7D 

MOV 

A,L 

9 

COMPUTE HL-DE 

FASO 

93 

SUB 

E 
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FA51 

6 F 

MOV 

L,A 

FA52 

7C 

MOV 

A,h 

FA53 

9A 

SBB 

D 

FA54 

67 

MOV 

H, A 

FA55 

CDA2FE 

CALL 

LADR 

FA58 

C9 

RET 




t 



; DISPLAY DIFFERENCE 


LOAD A BNPF TAPE INTO RAM MEMORY. 


THIS ROUTINE EXPECTS TWO HEXADECIMAL PARAMETERS AND 
INTERPRETS THEM AS BOUNDS OF A MEMORY AREA TO BE 
LOADED BY BNPF DATA TO BE READ FROM THE READER. 

IT IS ASSUMED THAT ENOUGH DATA IS AVAILABLE IN THE 
TAPE TO BE READ TO SATISFY THE MEMORY BOUNDS ENTERED. 
IF END OF TAPE IS ENCOUNTERED BEFORE THE MEMORY BOUNDS 
ARE SATISFIED, THIS ROUTINE WILL TERMINATE ON AN ERROR 
CONDITION (SEE RIX), BUT ALL DATA READ BEFORE THE END 
OF TAPE WAS ENCOUNTERED WILL BE LOADED. 


FA59 


LOAD: 



FA59 

CD7FFE 


CALL 

EXPR 

FA5C 

D1 


POP 

D 

FA5D 

El 


POP 

H 

FA5E 

CD12FE 


CALL 

lOCON 

FA61 

07 


DB 

ORFLG 

FA62 


LOO; 



FA62 

CDADFF 


CALL 

RIX 

FA65 

FE42 


CPI 

'B' 

FA67 

C262FA 


JHZ 

LOO 

FAbA 

3601 


MVI 

M, 1 

FA6C 


LOl; 



FA6C 

CDADFF 


CALL 

HIX 

FA6F 

FE4E 


CPI 

'N ' 

FA71 

CA79FA 


JZ 

L02 

FA74 

C6B0 


ADI 

-'P' 

FA7b 

C226F8 


JNZ 

ERROR 

FA79 


L02; 



FA79 

7E 


MOV 

A,M 

FA7A 

17 


RAL 


FA7B 

77 


MOV 

M. ,A 

FA7C 

D26CFA 


JNC 

LOl 

FA7F 

CDADFF 


CALL 

RIX 

FA82 

FE46 


CPI 

'F' 

FA84 

C226F8 


JNZ 

ERROR 

FA87 

CD92FE 


CALL 

HILO 

FA8A 

D262FA 


JNC 

LOO 

FA8D 

C9 


RET 



; GET TWO ADDRESSES 
; GET HIGH ADDRESS 
; GET LOW ADDRESS 


; READ TAPE 
; SCAN FOR 'B' 

; INITIALIZE MEMORY 

; GET DATA 
; CHECK FOR *N' 

; FOUND IT, CARRY = 0 

; ERROR 

; CARRY IS SET 

; SHIFT IN DATA BIT 


; IF CARRY IS SET, 8 BITS READ 
,* TEST FOR REQ'D 'F' 


; TEST FOR COMPLETION 
; KEEP GOING 
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MOVE A BLOCK OF MEMORY. 


THIS ROUTINE EXPECTS THREE HEXADECIMAL PARAMETERS FROM THE 
CONSOLE. THE FIRST AND SECOND PARAMETERS ARE THE BOUNDS OF 
THE MEMORY AREA TO BE MOVED, THE THIRD PARAMETER IS THE 
STARTING ADDRESS OF THE DESTINATION AREA. 


FA8E 


t 

^ove: 



FA8E 

oc 


INR 

C 

FA8F 

CD7FFE 


CALL 

EXPP 

FA92 

Cl 


POP 

B 

FA93 

D1 


POP 

D 

FA94 

El 


PUP 

H 

FA95 

MVO: 



FA95 

7E 


MOV 

A,M 

FA96 

02 


STAX 

B 

FA97 

03 


INX 

B 

FA98 

CD92FE 


CALL 

HILO 

FA9B 

D295FA 


JNC 

MVO 

FA9E 

C9 


RET 



1 





; GET THREE ADDRESSES 

; DESTINATION 
; SOURCE END 
; SOURCE BEGIN 

; GET A DATA BYTE 
; STORE AT DESTINATION 
; MOVE DESTINATION POINTER 
; TEST FOR COMPLETION 







AS 

THE PUNCH. IT 




AS 

WELL AS 

BEING 

FA9F 



4ULL 

; 


FA9F 

COE8FF 



CALL 

T1 

FAA2 

FEOD 



CPI 

CR 

FAA4 

C226F8 



JNZ 

ERROR 

FAA7 

CD12FE 



CALL 

lOCON 

FAAA 

OB 



DB 

OPFLG 

FAAB 


NUO; 



FAAB 

CDCOFE 



CALL 

LEAD 

FAAE 

CD12FE 



CALL 

lO'CON 

FABl 

OE 



DB 

CPFLG 

FAB2 

CD6BFD 



CALL 

POC 

FABB 

00 



DB 

0 

FAB6 

C9 



RET 






*■ 

1 

1 

1 

1 

1 

1 

* 

1 

1 


PUNCH LEADER OR TRAILER. 

THIS ROUTINE PUNCHES 60 NULL CHARACTERS ON THE DEVICE ASSIGNED 


y REQUIRE CR 


DRIVER PROGRAM FOR IWTELLEC 80 PROM PROGRAMMING PERIPHERAL 

THIS ROUTINE EXPECTS (1) AN OPTION CHARACTER tX,y,Z) 

WHICH specifies WHICH SOCKET OPTION IS SELECTED, (2) A 
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TRUE/FALSE CHARACTER (T OR F) WHICH SPECIFIES IF A DATA 
INVERSION IS TO TAKE PLACE, AND (3) THREE HEXADECIMAL 
PARAMETERS, THE FIRST TWO OF WHICH ARE INTERPRETED AS THE 
MEMORY AREA TO BE USED AS THE PROGRAMMING SOURCE DATA, 

THE THIRD ADDRESS IS THE FIRST ADDRESS IN THE PROM. NO 
TIMING IS PERFORMED BY THIS ROUTINE, ALL PROM DEPENDENT 
TIMING IS HANDLED BY THE PERIPHERAL. UPON RECEIPT OF AN 
ERROR STATUS FROM THE DEVICE, THIS ROUTINE DISPLAYS THE 
ADDRESS WHICH FAILED TO PROGRAM AND TERMINATES WITH AN 
ERROR CONDITION. 


FAB7 


PROG: 





FAB7 

CDB6FF 


CALL 

SELECT 


SELECT SOCKET 

FABA 

C5 


PUSH 

B 

f 

SAVE PROM OPCODE 

FABB 

0E03 


MVI 

C,3 



FABD 

CD7FFE 


CALL 

EXPR 

f 

GET THREE PARAMETERS 

FACO 

CD40FE 


CALL 

CBLF 



FAC3 

Cl 


POP 

B 

f 

PROM ADDRESS 

FAC 4 

D1 


POP 

D 

f 

HIGH ADDRESS 

FACS 

El 


POP 

H 

# 

LOW ADDRESS 

FAC6 

3E0F 


MVI 

A,0FH 



FACS 

AO 


ANA 

B 

• 

9 

MASK 4 MSB OF B 

FAC9 

47 


MOV 

B,A 



FACA 

FI 


POP 

PSW 

9 

OPCODE IS IN A 

FACB 

BO 


ORA 

B 



FACC 

47 


MOV 

8 , A 

9 

BC CONTAINS PROM OPCODE AND ADDRESS 

FACD 


PRO; 





FACD 

78 


MOV 

A,B 

9 

OUTPUT PROM ADDRESS AND OPCODE 

FACE 

D3F1 


OUT 

PHI 



FADO 

79 


MOV 

A,C 



FADl 

U3F2 


OUT 

PLO 



FAD3 

03 


I NX 

B 

9 

INCREMENT PROM ADDRESS 

FAD4 

3AO400 


LDA 

MSK 

f 

FETCH T/F FLAG 

FAD7 

AE 


XRA 

M 

9 

XOR DATA FROM MEMORY 

FADS 

D3F0 


OUT 

PDATA 

9 

OUTPUT PROM DATA 

FADA 


PRl; 





FADA 

DBFl 


IN 

PSTAT 



FAUC 

E601 


ANI 

PGRDY 

9 

TEST FOR COMPLETION 

FADE 

C2DAFA 


JNZ 

PRl 



FAEl 

DBFl 


IN 

PSTAT 



FAE3 

E602 


ANI 

PCUMP 



FAE5 

CAEFFA 


JZ 

PB2 

; 

PROGRAMMING ERROR, ABORT 

FAE8 

CD92FE 


CALL 

HILO 

f 

TEST FOR PROGRAMMING COMPLETION 

FAEB 

D2CDFA 


JNC 

PRO 



FAEE 

C9 


BET 


9 

RETURN TO COMMAND MODE 

FAEF 


PR 2; 





FAEF 

CDA2FE 


CALL 

LADR 

? 

DISPLAY BAD ADDRESS 

FAF2 

C326F8 


JMP 

ERROR 
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SYSTEM QUERY COMMAND. 

THIS COMMAND IS INVOKED BY TYPING THE LETTER 0. THIS 
COMMAND PRODUCES A LISTING OF LOGICAL I/O DEVICES AND 
THEIR CORRESPONDING PHYSICAL DEVICE ASSIGNMENTS. THE 
DATA DISPLAYED IS EQUIVALENT TO THE CURRENT VALUE OF lOBYT. 


FAF5 


QUERY 

; 




FAF5 

CDE8FF 


CALL 

TI 

9 

REQUIRE CP 

FAF8 

FEOD 


CPI 

CB 



FAFA 

C226F8 


JNZ 

ERROR 



FAFD 

0604 


MVI 

B,4 


SET UP OUTER LOOP COUNTER. 

FAFF 

210 CF8 


LXI 

H,LTBL 


POINT HL AT LOGICAL DEVICE TABLE. 

FB02 


o 

o 





FB02 

GD40FE 


CALL 

GRLF 


START A NEW LINE, 

FB05 

4E 


MOV 

C,M 


DISPLAY LOGICAL DEVICE IDENTIFIER 

FB06 

CD30FD 


CALL 

COM 



FB09 

CD64FD 


CALL 

COMC 


DISPLAY '=". 

FBOC- 

3D 


DB 

9^9 



F60D 

23 


INX 

H 


POINT AT MASK FOR LOGICAL DEVICE. 

FBOE 

7E 


MOV 

A,M 


FETCH MASK. 

FBOF 

2F 


CMA 



INVERT IT 

FBIO 

4F 


MOV 

C,A 


PUT IN C 

FBI! 

23 


INX 

H 


POINT AT PHYSICAL DEVICE TABLE 

FB12 

5E 


MOV 

E,M 


ADDRESS OF SUBORDINATE 

FB13 

23 


INX 

H 


TABLE 

FB14 

56 


MOV 

D,M 



FB15 

23 


INX 

H 



FB16 

EB 


XCHG 


9 

HL <- PHYSICAL DEVICE TABLE 

FB17 

3A0300 


LDA 

lOBYT 



F81A 

A1 


ANA 

C 

9 

PHYSICAL SELECTION 

FBIB 

C5 


PUSH 

B 

9 

SAVE OUTER LOOP COUNTER 

FBIC 

0604 


MVI 

B,4 

9 

SET UP INNER LOOP COUNTER 

FBIE 


Qi; 





FBIE 

4E 


MOV 

C,M 

; 

GET PHYSICAL DEVICE IDENTIFIER 

FBIF 

23 


INX 

H 



FB20 

BE 


CMP 

M 

; 

TEST FOR EQUALITY 

FB21 

CA29FB 


JZ 

Q2 



FB24 

23 


INX 

H 

9 

POINT AT NEXT ENTRY 

Fb25 

05 


DCR 

B 

9 

DECREMENT INNER LOOP 

FB26 

C21EFB 


JNZ 

Q1 



FB29 


Q2; 





FB29 

CD30FD 


CALL 

COM 

9 

DISPLAY PHYSICAL DEVICE 

FB2C 

EB 


XCHG 


9 

POINT AT MASTER TABLE 

F02D 

Cl 


POP 

3 



FB2E 

05 


DCR 

B 

9 

DECREMENT OUTER LOOP 

FB2F 

C202FB 


JNZ 

QO 



FB32 

C9 


RET 






9 
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; READ ROUTINE. 

; THIS ROUTINE READS A HEXADECIMAL FILE FROM THE ASSIGNED 
; READER DEVICE AND LOADS IT INTO MEMORY. ONE HEXADECIMAL 
; PARAMETER IS EXPECTED. THIS PARAMETER IS A BASE ADDRESS 
; TO BE ADDED TO THE MEMORY ADDRESS OF EACH DATA BYTE ENCOUNTERED. 

; IN THIS WAi, HEXADECIMAL FILES MAY BE LOADED INTO MEMORY 
; IN AREAS OTHER THAN THAT FOR WHICH THEY WERE ASSEMBLED OR COMPILED. 
; ALL RECORDS READ ARE CHECKSUMMED AND COMPARED AGAINST THE 
; CHECKSUM IN THE RECORD. IF A CHECKSUM ERROR (OR TAPE READ ERROR) 

; OCCURS, THE ROUTINE TAKES AN ERROR EXIT. NORMAL LOADING IS 
; TERMINATED WHEN AN EOF RECORD IS ENCOUNTERED. THE LOAD 
; ADDRESS FIELD REPLACES THE USER'S STORED PC VALUE. 

; A TRANSFER TO THE PROGRAM MAY THEN BE ACCOMPLISHED BY A 'G<CR>'. 

r 

FB33 read: 


FB33 


OD 


DCR 

C 

; GET ONE ADDRESS 


FB34 


CD7FFE 


CALL 

EXPR 



FBi7 


CD40FE 


CALL 

CRLF 



FB3A 


CD12FE 


CALL 

lOCON 



F83D 


07 


DB 

OPFLG 



FB3E 



REDO: 





FB3E 


CDADFF 


CALL 

RIX 



FB41 


FE3A 


CPI 

^ * 



FB43 


C23EFB 


JNZ 

REDO 

; SCAN TO RECORD MARK 


F646 


AF 


XRA 

A 



FB47 


57 


MOV 

D,A 

? CLEAR CHECKSUM 


F848 


CDIDFE 


CALL 

BYTE 



F84B 


CA83FB 


JZ 

RED3 

; ZERO RECORD LENGTH, ALL 

DONE 

FB4E 


5F 


MOV 

E,A 

,* E <- RECORD LENGTH 


FB4F 


CDIDFE 


CALL 

BYTE 

; GET MSB OF LOAD ADDRESS 


FB52 


67 


MOV 

H,A 



FB53 


CD1DF'=' 


CALL 

BYTE 

; GET LSB OF LOAD ADDRESS 


FB56 


6 F 


MOV 

L,A 



FB57 


CDIDFE 


CALL 

BYTE 

; GET RECORD TYPE 


FB5A 


4B 


MOV 

C,E 

; C <- RECORD LENGTH 


FB5B 


E5 


PUSH 

H 




1 


+ 

FETCH 

-256 

; COMPUTE BUFFER POINTER 


F85C 

1 

2100FF 

+ 

LXI 

H,OFFOOH 



FB5F 

1 

39 


DAD 

SP 



FB60 



RED! : 





FB60 


CDIDFE 


CALL 

BYTE 

; READ DATA 


FBb3 


77 


MOV 

M,A 

; PUT IN BUFFER 


FB64 


23 


I NX 

H 



F865 


ID 


DCR 

E 



FBbb 


C2bOFB 


JNZ 

REDl 

; LOOP UNTIL DONE 


FB69 


CDIDFE 


CALL 

BYTE 

; READ CHECKSUM 


F66C 


C226F8 


JNZ 

ERROR 

; CHECKSUM ERROR 


FBbF 


Di 


POP 

D 

; DE = LOAD ADDRESS 


FB70 


E3 


XTHL 


; HL = BIAS ADDRESS, TOS 

= BUFFER 

FB71 


EB 


XCHG 


; DE = BIAS ADDRESS, HL = 

LOAD ADDRESS 
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F872 


19 


DAD 

D 

; HL = BIAS + LA 

FB73 


0600 


MVI 

B,0 


FB75 


09 


DAD 

B 

; HL = BIAS + LA + RL 

FB76 


EB 


XCHG 


; DE = BIAS + LA + RL, HL = BIAS 

FB77 

FB78 


E3 

RED2: 

XTHL 


; HL = BUFFER, TOS = BIAS 

F678 


2B 


DCX 

H 

; DECREMENT BUFFER POINTER 

F879 


7E 


MOV 

A,M 


F87A 


IB 


DCX 

D 

; DECREMENT MEMORY POINTER 

FB7B 


12 


STAX 

D 

; PUT DATA IN DESIGNATED.ADDRESS 

F87C 


OD 


DCR 

C 

; UNTIL COUNT IS EXHAUSTED 

FB7D 


C278FB 


JNZ 

RED2 


FB80 

FB83 


C33EFB 

RED3: 

JMP 

REDO 

; GET ANOTHER RECORD 


1 



GET 

PLOC 

; POINT HL AT PC UPPER 

F883 

1 

2A0400 


LHLD 

MEMTQP 


Fb8b 

1 

2EE1 

+ 

MVI 

L,PLQC AND OFFH 

FB88 


CDIDFE 


CALL 

BYTE 

; GET MSB OF TRANSFER ADDRESS 

FB8B 


77 


MOV 

M,A 


FB8C 


2B 


DCX 

H 

,* POINT HL AT PC LOWER 

F08D 


CDIDFE 


CALL 

BYTE 


FB90 


77 


MOV 

M,A 


FB91 


El 


POP 

H 


F892 


C9 


RET 






SUBSTITUTE MEMORY CONTENTS ROUTINE. 

THIS ROUTINE EXPECTS ONE PARAMETER FROM THE CONSOLE, FOLLOWED 
BY A SPACE. THE PARAMETER IS INTERPRETED AS A MEMORY LOCATION 
AND THE ROUTINE WILL DISPLAY THE CONTENTS OF THAT LOCATION, 

FOLLOWED BY A DASH (-). TO MODIFY MEMORY, TYPE IN THE NEW DATA 
FOLLOWED BY A SPACE OR A CARRIAGE RETURN. IF NO MODIFICATION 
OF THE LOCATION IS REQUIRED, TYPE ONLY A SP’ACE OR CARRIAGE RETURN. 

IF A SPACE WAS LAST TYPED, THE NEXT MEMORY LOCATION WILL BE DISPLAYED 
AND MODIFICATION OF IT IS ALLOWED. IF A CARRIAGE RETURN WAS ENTERED, 
THE COMMAND IS TERMINATED. 


FB93 

Fa93 

CDCBFE 

subs; 

CALL 

PARAM 

9 

GET MEMORY ADDRESS 



FB96 

FB97 

D8 

SUO: 

RC 


7 

CR ENTERED, RETURN TO 

COMMAND 

MODE 

FB97 

7E 


MOV 

A,M 





FB98 

CDAAFE 


CALL 

LBYTE 

f 

DISPLAY DATA 



Fb9B 

CD64FD 


CALL 

COMC 





FB9E 

2D i 


OB 

' - ' 





FB9F 

CDIFFF 


CALL 

PCHK 





F3A2 

D8 


RC 


9 

CR ENTERED, RETURN TO 

COMMAND 

MODE 

FBA3 

CAADFB 


JZ 

SUl 

9 

SPACE ENTERED, SPACE 

BY 


F8A6 

EB 


XCHG 


9 

SAVE MEMORY ADDRESS 
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F8A7 

CDDIFE 

CALL 

PAO 


; GET NEW VALUE 

F8AA 

EB 

XCHG 



; E = VALUE 

FBAB 

73 

MOV 

M,E 


; STORE NEW VALUE 

FBAC 

08 

RC 



; CR ENTERED AFTER VALUE, RETURN 

F8AD 

SUl: 




FBAD 

23 , 

INX 

H 



F8AE 

C397FB 

JMP 

SUO 










TRANSFER 

CONTENTS OF 

A PROM 

TO MEMORY. 



THIS ROUTINE EXPECTS 

(IJ AN 

OPTION CHARACTER (X,Y,Z) 



WHICH SPECIFIES WHICH 

SOCKET 

OPTION IS SELECTED, AND 



(2) TWO 

HEXADECIMAL PARAMETERS WHICH IT INTERPRETS 



AS THE RAM MEMORY AREA WHERE 

THE CONTENTS OF THE 



PROM IN 

THE SELECTED 

PROGRAMMING SOCKET IS TO BE STORED. 

F8B1 

' 

'RAN: 




FBBl 

C0B6FF 

CALL 

SELECT 


; SELECT SOCKET 

f BB4 

OEOO 

MVI 

c,o 


! BC = PROM ADDRESS + COMMANDS 

FBB6 

C5 

PUSH 

B 


; STACK PROM ADDRESS 

FB87 

0E02 

MVI 

C,2 



F6B9 

CD7FFE 

CALL 

EXPR 


; GET MEMORY AREA 

FBBC 

D1 

POP 

D 


; HIGH ADDRESS 

FBBD 

El 

POP 

H 


; LOW ADDRESS 

F8BE 

Cl 

POP 

8 


; PROM ADDRESS 

FBBF 

TRO; 




FBBF 

78 

MOV 

A,B 



FBCO 

D3F1 

OUT 

PHI 


; OUTPUT COMMAND AND 4 MSB 

F6C2 

79 

MOV 

A,C 



FBC3 

D3F2 

OUT 

PLO 


; OUTPUT 8 LSB OF ADDRESS 

F8C5 

03 

INX 

B 



FBC6 

DBFO 

IN 

PDATA 



FBC8 

E5 

PUSH 

H 



FaC9 

210400 

LXI 

H,MSK 


; FETCH T/F FLAG 

FBCC 

AE 

XRA 

M 



F8CD 

El 

POP 

H 



FBCE 

77 

MOV 

M,A 


; PUT DATA IN RAM 

F8CF 

DBFl 

IN 

PSTAT 



F8D1 

E602 

ANI 

PCOMP 



FBD3 

CA26F8 

JZ 

ERROR 



FBDb 

CD92FE 

CALL 

HILO 



FBD9 

D2BFFB 

JNC 

TRO 


; CONTINUE LOOPING 

FBDC 

C9 

RET 










NRITE ROUTINE. 


THIS ROUTINE EXPECTS TWO HEXADECIMAL PARAMETERS WHICH ARE 
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INTERPRETED AS THE BOUNDS OF A MEMORY AREA TO BE ENCODED 
INTO HEXADECIMAL FORMAT AND PUNCHED ON THE ASSIGNED PUNCH 
DEVICE. 


F80D 

F0DD 

CD7FFE 

WRITE: 

CALL 

EXPR 

FBEO 

D1 


POP 

D 

FBEl 

El 


POP 

H 

F8E2 

CD12FE 


CALL 

TGCON 

FBE5 

OB 


D8 

OPFLG 

FBE6 

FBE6 

CD6BFD 

WRO: 

CALL 

PUC 

FBE9 

3A 


DB 

# • tf 

FBEA 

011000 


LXl 

B, 16 

F8ED 

E5 


PUSH 

H 

FBEE 

FBEE 

04 

WRl; 

INR 

B 

fbe'f 

OD 


DCR 

C 

FBFO 

CAF9FB 


JZ 

WR2 

FBF3 

CD92FE 


C ALL 

HILO 

FBF6 

D2EEFB 


JNC 

WRl 

FBF9 

FBF9 

El 

WR2 : 

POP 

H 

F8FA 

05 


PUSH 

D 

FBFB 

1600 


MVI 

0,0 

FBFD 

78 


MOV 

A,6 

FBFE 

CD09FF 


CALL 

PBYTE 

FCOl 

COOIFF 


CALL 

PAOR 

FC04 

AF 


XRA 

A 

FC05 

CD09FF 


CALL 

PBYTE 

FC08 

FC08 

7E 

WR3: 

MOV 

A,M 

FC09 

CD09FF 


CALL 

PBYTE 

FCOC 

23 


INX 

H 

FCOD 

05 


DCR 

B 

FCOE 

C203FC 


JNZ 

WR3 

Fell 

AF 


XRA 

A 

FC12 

92 


SUB 

D 

FC13 

CD09FF 


CALL 

PBYTE 

FC16 

D1 


POP 

D 

FC17 

2B 


DCX 

H 

FC18 

CD2EFF 


CALL 

PEOL 

FCIB 

CD92FE 


CALL 

HILO 

Fcie 

D2E6FB 


JNC 

WRO 

FC21 

C9 


RET 



; GET ADDRESS RANGE 
; HIGH ADDRESS 
; LOW ADDRESS 


; EMIT RECORD MARK 

; INITIALIZE B=0, C=16 
; SAVE HL 


; TERMINATE ON COUNT OF 16 BYTES 
; OR END OF RANGE 
; WHICHEVER OCCURS FIRST 

; RESTORE LOW ADDRESS 
; SAVE HIGH ADDRESS 
J INITIALIZE CHECKSUM 
; PUT RECORD LENGTH IN A 
; EMIT RECORD LENGTH 
; EMIT LOW ADDRESS 
; EMIT RECORD TYPE 


? FETCH CODE 
; EMIT IT 

; INCREMENT MEMORY ADDRESS 
; DECREMENT COUNT 


; PUNCH -CHECKSUM 

; RESTORE HIGH ADDRESS 
; BACKUP MEMORY POINTER 
; PUNCH CR,LF 
; TEST FUR TERMINATION 


EXAMINE AND MODIFY CPU REGISTERS. 


THIS ROUTINE ALLOWS THE OPERATOR TO EXAMINE AND/OR MODIFY 
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; THE CONTENTS OF THE USER PROGRAM'S REGISTERS. THE REGISTER 
; VALUES NERE STORED AS A RESULT OF A PREVIOUS BREAKPOINT AND 
; WILL BE RESTORED TO THE USER PROGRAM DURING A SUBSEQUENT 'G' 
; COMMAND. 


FC22 


x: 



FC22 

217DFC 


LXI 

H,ACTBL 

FC25 

CDIFFF 


CALL 

PCHK 

FC28 

DA66FC 


JC 

X5 

FC2B 

OEOC 


MVI 

C,NREGS 

FC2D 


XO; 



FC2D 

BE 


CMP 

M 

FC2E 

CA3BFC 


JZ 

XI 

FC31 

23 


INX 

H 

FC32 

23 


INX 

H 

FC33 

23 


INX 

H 

FC34 

OD 


OCR 

C 

FC35 

C22DFC 


JNZ 

XO 

FC38 

C326F8 


JMP 

ERROR 

fC3a 


XI: 



FC3B 

CD2EFD 


CALL 

BLK 

FC3E 


X2; 



FC3E 

CD6BFE 


CALL 

DREG 

FC41 

CD64FD 


CALL 

COMC 

FC44 

2D 


OB 

* m * 

FC45 

CDIFFF 


CALL 

PCHK 

FC48 

D8 


RC 


FC49 

CA5CFC 


JZ 

X4 

FC4C 

E5 


PUSH 

H 

FC4D 

C5 


PUSH 

B 

FC4E 

CDDIFE 


CALL 

PAO 

FC51 

70 


MOV 

A, L 

FC52 

12 


STAX 

D 

FC53 

FI 


POP 

PSW 

FC54 

B7 


ORA 

A 

FC55 

FA5BFC 


JM 

X3 

FC58 

13 


INX 

D 

FC59 

7C 


MOV 

A,H 

FC5A 

12 


STAX 

D 

FC5B 


X3; 



FC5B 

El 


POP 

H 

FC5C 


X4: 



FC5C 

AF 


XRA 

A 

FC5D 

B6 


ORA 

M 

FC5E 

F8 


RM 


FC5F 

78 


MOV 

A,B 

FC60 

FEOD 


CPI 

CR 

FC62 

C8 


RZ 


FC6 3 

C33EFC 


JMP 

X2 

FC66 


X5: 



FC66 

CD40FE 


CALL 

CRLF 


; POINT TO ACCESS TABLE 
; GET REGISTER IDENTIFIER 
; IF CARRY = 1, CR ENTERED 


; MATCHED REGISTER IDENTIFIER 
; POINT TO NEXT TABLE ENTRY 


; DECREMENT REGISTER COUNTER 
; TRY AGAIN 
; NOT IN TABLE, ERROR 


; DISPLAY THE REGISTER 

; TYPE PROMPT 

; SKIP IF NULL ENTRY 

; CR ENTERED, RETURN TO COMMAND MODE 

? SAVE POINTER TO ACTBL 
,* SAVE PRECISION 
; GET NEW REG'VALUE 

? STORE LSB IN REGISTER AREA 
; RETRIEVE PRECISION (A) 

; SET SIGN 
; 8 BITS ONLY 


; STORE MSB IN REGISTER AREA 
; RETRIEVE ACTBL POINTER 


; END OF. TABLE, RETURN TO COMMAND MODE 
; TEST DELIMITER 

; CR entered, RETURN TO COMMAND MODE 
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FC69 

X6: 




FC69 

CD2EFO 

CALL 

BLK 

t 

OUTPUT A SPACE 

FCbC 

AF 

XRA 

A 

9 

CLEAR A 

FC6D 

B6 

ORA 

M 

9 

SET CONDITION CODES 

FC6E 

F8 

RM 


9 

ALL DONE, RETURN TO COMMAND MODE 

FC6F 

4E 

MOV 

C,M 



FC70 

CD30FD 

CALL 

COM 

9 

PRINT CHARACTER 

FC73 

CD64FD 

CALL 

COMC 

9 

PRINT EQUAL SIGN 

’FC76 

3D 

DB 




FC77 

CD6BFE 

CALL 

DREG 

9 

DISPLAY REGISTER CONTENTS 

FC7A 

C369FC 

JMP 

X6 

9 

CONTINUE 



TABLE FOR ACCESSING REGISTERS 




TABLE CONTAINS; 





(1) 

REGISTER IDENTIFIER 





(2) 

LOCATION ON STORAGE 

PAGE 



(3) 

PRECISION 



FC7D 


\CTBL: 




FC70 

41CF00 

DB 

'A', ALOC, 

0 


fcro 

42CB00 

OB 

'B', BLOC, 

0 


FC83 

43CA00 

DB 

'C', CLOC, 

0 


FCB6 

44C900 

DB 

'D', DLOC, 

0 


PC 8 9 

45C800 

OB 

'E*, ELOC, 

0 


FC8C 

46CE00 

DB 

'F', FLOC, 

0 


FC8F 

48DD00 

DB 

*H', HLOC, 

0 


FC92 

4ycooo 

DB 

'I', ILOC, 

0 


Fcy5 

4CDC00 

DB 

* L *, LLDC, 

0 


FC98 

4D0D01 

DB 

'M', HLOC, 

1 


FC9B 

5UE101 

DB 

'P', PLOC, 

1 


FC9E 

53D101 

DB 

*S', SLOC, 

1 


FCAl 

FF 

DB 

-1 



OOOC 


^REGS EQU 

($-ACTRL)/3 

; 

LENGTH OF ACCESS TABLE 





♦ - 




END OF MONITOR COMMANDS, BEGINNING OF I/O SUBROUTINES 



t 


♦ - 



EXTERNALLY REFERENCED ROUTINE 
CONSOLE INPUT CODE, VALUE’RETURNED IN A 
A, FLAGS MODIFIED 
STACK USAGE: 2 BYTES 


FCA2 


Cl; 


9 

CONSOLE INPUT 

FCA2 

3rf0300 

LDA 

lOBYT 

9 

GET STATUS BYTE 

FCA5 

E603 

ANI 

NOT CMSK 

9 

GET CONSOLE BITS 

FCA7 

C2B4FC 

JNZ 

CIO 

9 

TEST FOR CRT 

FCAA 


TTYIN: 




FCAA 

DBF5 

IN 

TTS 

9 

TTY STATUS PORT 
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FCAC 

E602 

ANI 

RBR 


f 

CHECK FOR RECEIVE BUFFER READY 

FCAE 

CAAAFC 

JZ 

TTYIN 




FCBl 

DBF4 

IN 

TTI 


f 

READ THE CHARACTER 

FCB3 

C9 

RET 



0 

RETURN 

FC64 

CIO; 





FCB4 

FEOl 

CPI 

CCRT 


0 

CONSOLE = CRT? 

FC86 

C2C3FC 

JNZ 

CIl 


0 

TEST FOR BATCH 

FC89 

CRTIN: 





FCB9 

DBF? 

IN 

CRTS 



CRT STATUS PORT 

FCBB 

E602 

ANI 

RBR 



CHECK FOR RECEIVE BUFFER READY 

FCBD 

CAB9FC 

JZ 

CRTIN 



NOT READY, CONTINUE LOOPING 

FCCO 

DBFS 

IN 

CRTI 



READ THE CHARACTER 

FCC2 

C9 

RET 





FCC3 

cil; 





FCC3 

FE02 

CPI 

BATCH 




FCC5 

CAD5FC 

JZ 

RI 


• 

BATCH MODE, INPUT = READER 

FCC8 

3EE8 

MVI 

A,CILOC 


0 

USER DEFINE CONSOLE INPUT 

FCCA 

C327FD 

JMP 

@USER 






TEST FOR 

OPERATOR INTERRUPTION OF COMMAND 



BY DEPRESSING BREAK 

KEY 





REGISTER 

USAGE 






X = MODIFIED BY THIS ROUTINE, 

CONTENTS UNDEFINED, 



• S = SET BY THIS ROUTINE, 

RETURNED AS A RESULT, 



U = USED 

AS INPUT, 






A - X 







B - 


C - 





D - 


E - 





H - 


L - 





CARRY 

- X 

ZERO 

- X 




SIGN 

- X 

PARITY - 

X 



SP - 


PC - 





STACK 

USAGE! 4 

BYTES 



FCCD 


3REAK: 





FCCD 

CDCl-FD 

CALL 

CSTS 


0 

SEE IF A KEY WAS DEPRESSED 

FCDO 

B7 

ORA 

A 




FCDl 

C8 

RZ 



0 

NO CHARACTER READY 

FCD2 

C3E8FF 

JMP 

TI 


; 

GET THE CHARACTER 


EXTERNALLY REFERENCED ROUTINE 
READER INPUT CODE 


i VALUE RETURNED IN A, FLAGS MODIFIED 




; STACK USAGE: 8 BYTES 


FCD5 


Rl: 

; READER INPUT 

FCD5 

E5 

PUSH H 

; SAVE HL 

FCD6 

210300 

LXI H,10BYT 

; POINT HL AT lOBYT 
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FCD9 

7E 


MOV 

A,M 



FCDA 

E60C 


ANI 

NOT RMSK 

9 

READER = PTR? 

FCDC 

C2FCFC 


JNZ 

PI3 

f 

BRANCH TO PTR ROUTINE 

FCDF 

3E02 


MV I 

A,TTYADV 

; 

READER = TTY 

FCEl 

D3F9 


OUT 

PTKC 



FCE3 

26FA 


MVI 

H,TOUT 


SET READER TIMEOUT TIMER 

FCE5 


RIO: 





FCE5 

DBF5 


IN 

ITS 



FCE7 

E602 


ANI 

RBR 



FCE9 

C2F7FC 


JNZ 

RI2 

9 

DATA IS READY 

FCEC 

CD63FE 


CALL 

DELAY 

9 

DELAY 10 MS 

FCEF 

25 


DCP 

H 



FCFO 

C2E5FC 


JiMZ 

RIO 



FCF3 


RIl: 





FCF3 

AF 


XPA 

A 



FCF4 

37 


STC 


0 

SET CARRY INDICATING EOF 

FCF5 

El 


POP 

H 



FCF6 

C9 


RET 


9 

RETURN 

FCF7 


RI2; 





FCF7 

DBF4 


IN 

TTI 



FCF9 

87 


ORA 

A 

9 

CLEAR CARRY 

FCFA 

El 


POP 

H 



FCFB 

C9 


RET 


9 

RETURN 

FCFC 


RI3: 



9 

PTR ROUTINE 

FCFC 

FE04 


CPI 

RPTR 



FCFE 

C21DFD 


JNZ 

RI6 



FDOl 

3E08 


MVI 

A,PTRADV 

9 

START PTR 

FD03 

D3F9 


OUT 

PTRC 



FD05 

26FA 


MVI 

H,TOUT 

9 

SET READER TIMEOUT TIMER 

FD07 


RI4: 





FD07 

DBF9 


IN 

PTRS 



FD09 

E601 


ANI 

PTRDY 



FDOB 

C218FO 


JNZ 

RI5 



FDOE 

CD63FE 


CALL 

DELAY 



FDll 

25 


DCR 

H 



FD12 

C207FD 


JNZ 

RI4 



FD15 

C3F3FC 


JMP 

RIl 



FOi8 


RI5: 





FD18 

DBFS 


IN 

PTRI 

9 

GET THE DATA 

FDIA 

B7 


ORA 

A 



FDIB 

El 


POP 

H 



FDIC 

C9 


RET 


9 

RETURN 

FDID 


RI6; 





FDID 

El 


POP 

H 



FDIE 

FE08 


CPI 

RUSEl 



FD20 

3EEE 


MVI 

A,R1L0C 



FD22 

CA27FD 


JZ 

@USER 



FD25 

3EF1 

9 

MVI 

A,R2LOC 




USER DEFINED I/O ENTRY POINT TRANSFER LOGIC 
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FD27 

@user; 




FD^7 

E5 

PUSH 

H 

? 

SAVE HL, CREATE A STACK ENTRY 

FD28 

2A0400 

LHLD 

MEMTOP 



FD2B 

6F 

MOV 

L,A 



FD2C 

E3 

XTHL 




FD2L) 

C9 

RET 






' 

EXTERNALLY 

REFERENCED ROUTINE 




CONSOLE OUTPUT CODE, VALUE 

EXPECTED IN C 



A,FLAGS,C 

MODIFIED 





STACK USAGE: 2 BYTES 



FD2E 


3LK: 


/ 

PRINT A BLANK 

FD2E 

0E20 

MVI 

C,' ' 



FD30 

COM! 


• 

# 

CONSOLE OUTPUT 

FD30 

3A0300 

LOA 

lOBYT 



FD33 

E603 

ANI 

NOT CMSK 



FD35 

FE02 

CPI 

BATCH 

• 

9 

DON'T HONOR BREAK KEY IN BATCH MODE 

FD37 

C4CDFC 

CNZ 

BREAK 

9 

TEST FOR BREAK KEY 

FD3A 

CO! 


9 

EXTERNAL ENTRY POINT 

FD3A 

3A0300 

LDA 

lOBYT 

9 

GET STATUS BYTE 

FD3D 

E603 

ANI 

NOT CMSK 

• 

9 

GET CONSOLE BITS 

FD3F 

C24DFD 

JNZ 

COO 

• 

9 

TEST FOR CRT 

FD42 

TTlfOUT! 




F042 

DBFS 

IN 

TXS 

; 

CONSOLE = TTY 

F044 

E601 

ANI 

TRDY 



FD46 

CA42FO 

JZ 

TTYOUT 

• 

9 

LOOP UNTIL READY 

FD49 

79 

MOV 

A,C 



FD4A 

D3F4 

OUT 

TTO 

9 

9 

OUTPUT CHARACTER 

FD4C 

C9 

RET 


9 

RETURN 

FD4D 

COO: 




FD4D 

FE02 

CPI 

BATCH 



FD4F 

CAAIFD 

JZ 

LO 



FD52 

FEOl 

CPI 

CCRT 

9 

CONSOLE = CRT? 

FD54 

3EEB 

MVI 

A,COLOC 



FD56 

C227FD 

JNZ 

@USER 

9 

USER DEFINED CONSOLE OUTPUT 

FD59 

CRTOUT: 




F059 

DBF7 

IN 

CRTS 

9 

CONSOLE = CRT 

FD56 

E601 

ANI 

TRDY 



FD5D 

CAb9F0 

JZ 

CRTOUT 

9 

LOOP UNTIL READY 

FD60 

79 

MOV 

A,C 



FD61 

D3F6 

OUT 

CRTO 



FD63 

C9 

RET 






CONSOLE OUTPUT OF CONSTANT 

DATA 

FD64 

C 

OMC; 




FD64 

E3 

XTHL 


9 

GET RETURN ADDRESS 

FD65 

4E 

MOV 

C,M 

9 

GET PARAMETER 

FD66 

23 

INX 

H 

9 

BUMP RETURN ADDRESS 

FD67 

E3 

XTHL 
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FD68 C330FD JMP COM ; OUTPUT IT 

; EXTERNALLY REFERENCED ROUTINE 
; PUNCH OUTPUT CODE, VALUE EXPECTED IN C 
,* A, FLAGS, AMD C M0DIFIE:D 
; STACK USAGE: 2 BYTES 


FD6B 


poc; 



PUNCH A CONSTANT 


FD6B 

E3 


XTHL 




FD6C 

4E 


MOV 

C,M 



FD6D 

23 


INX 

H 



FD6E 

E3 


XTHL 




FD6F 


po: 



PUNCH OUTPUT 


FD6F 

3A0300 


LDA 

lOBYT 

GET STATUS BYTE 


FD72 

E630 


ANI 

NOT PMSK 

GET PUNCH BITS 


FD74 

CA42FD 


JZ 

TTYOUT 

NO, PUNCH = TTY 


FD77 

FEIO 


CPI 

PPTP 

TEST FOR PTP 


F0 79 

C28BFD 


JNZ 

POl 

TEST FOR USER DEVICE(S) 

F07C 


POO: 



PUNCH = PTP 


F07C 

DBF9 


IN 

PTPS 

GET STATUS 


FD7E 

E604 


ANI 

PTPRY 

CHECK STATUS 


FD80 

CA7CFD 


JZ 

POO 

LOOP UNTIL READY 


FD83 

79 


MOV 

A,C 



FD84 

D3F8 


OUT 

PTPO 



FD86 

3E20 


MVI 

A,PTPADV 

START PUNCH 


FD88 

D3F9 


OUT 

PTPC 



FD8A 

C9 


RET 




FD8B 


POl: 





FD8B 

FE20 


CPI 

PUSEl 



FD8D 

3EF4 


MVI 

A,P1L0C 



FD8F 

CA27FD 


JZ 

@USER 

USER DEFINED PUNCH 

1 

FD92 

3EF7 


MVX 

A,P2LQC 



FD94 

C327FD 


JMP 

@USER 

USER DEFINED PUNCH 

2 


EXTERNALLY REFERENCED ROUTINE 
LIST OUTPUT CODE 

VALUE EXPECTED IN C, A AND FLAGS MODIFIED 
STACK USAGE: 2 BYTES 


FD97 


LOM; 



; LIST OUTPUT 


FD97 

3A0300 


LDA 

lOBYT 



FD9A 

E603 


ANI 

NOT CMSK 



FD9C 

FE02 


CPI 

BATCH 

; DON'T HONOR BREAK KEY 

IN BATCH MODE 

FD9E 

C4CDFC 


CNZ 

BREAK 

,• TEST FOR BREAK KEY 


FDAl 


LO: 



; LIST OUTPUT 


FDAl 

3A0300 


LDA 

lOBYT 

; GET STATUS BYTE 


FDA4 

EbCO 1 


ANI 

NOT LMSK 

; GET LIST BITS 


FDA6 

CA42FD 


JZ 

TTYOUT 

; LIST = TTY 


FDA9 

FE40 


CPI 

LCRT 



FDAB 

CA59FD 


JZ 

CRTOUT 

; LIST = CRT 


FDAE 

FECO 


CPI 

LUSE 

; TEST FOR USER DEFINED 

LIST DEVICE 
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FDBO 

3EFA 



MVI 

A,L1L0C 



FDB2 

CA27FD 



JZ 

@USER 

9 

USER DEFINED LIST 

FOBS 


LPO; 





FOBS 

DBFB 



IN 

LPTS 



F0B7 

E601 



ANI 

LPTRY 



FDB9 

CAB5FD 



JZ 

LPO 



FDBC 

79 



MOV 

A,C 



FOBD 

2F 



CMA 




FDBE 

D3FA 



OUT 

LPTO 



FDCO 

C9 



RET 







EXTERNALLY 

REFERENCED ROUTINE 





CONSOLE INPUT STATUS CODE 






A, 

FLAGS MODIFIED 






STACK USAGE 

: 2 BYTES 



FDCl 


( 

:STS! 



9 

CONSOLE INPUT STATUS 

FDCl 

3A0300 



LDA 

lOBYT 

9 

GET STATUS BYTE 

FDC4 

E603 



ANI 

NOT CMSK 

9 

CONSOLE = TTY? 

FDC6 

C2CEF0 



JNZ 

CSO 

9 

CONSOLE = CRT 

FDC9 

DBFS 



IN 

TTS 

• 

9 

GET TTY STATUS 

FDCB 

C3D5FD 



JMP 

CSl 



FDCE 


CSO! 





FDCE 

FEOl 



CPI 

CCRT 



FDDO 

C2DCFD 



JNZ 

CS3 



FDD3 

DBF7 



IN 

CRTS 

• 

9 

GET CRT STATUS 

F0D5 


CSl : 





FDD5 

E602 



ANI 

RBR 



FDD7 

3E00 



MVI 

A,FALSE 

9 

RETURN FALSE IF NO DATA AVAILABLE 

FDD9 


CS2; 





FDD9 

C8 



RZ 




FDDA 

2F 



CMA 




FDDB 

C9 



RET 


; 

RETURN 

FDDC 


CS3: 





FDDC 

FE02 



CPI 

BATCH 



FDDE 

3EFF 



MVI 

A,TRUE 



FDEO 

CAD9FD 



JZ 

CS2 



F0E3 

3EFD 



MVI 

A,CSLOC 

9 

USER DEFINE CONSOLE STATUS 

FDE5 

C327FD 



JMP 

@USER 






EXTERNALLY 

REFERENCED ROUTINE 





I/O 

SYSTEM 

STATUS CODE 






STATUS BYTE 

RETURNED IN A 






STACK USAGE 

: 2 BYTES 



FDE8 


: 

[OCHK 

; 




FDE8 

3A0300 



LDA 

lOBYT 

9 

GET STATUS BYTE 

FDEB 

C9 



RET 


9 

RETURN 


EXTERNALLY REFERENCED ROUTINE 
SET I/O CONFIGURATION 








8080 MACRO ASSEMBLER, VER 2.3 INTELLEC/MDS MONITOR, VERSION 1.1, 26 AUGUST 1975 


ERRORS = 0 PAGE 39 


VALUE EXPECTED IN C, A MODIFIED 




r STACK USAGE 

: 2 BYTES 



FOEC 

1 

] 

[OSET: 




FDEC 

79 

MOV 

A,C 



FDED 

320300 

STA 

lOBYT 

t 

PUT NEW lOBYT IN MEMORY 

FDFO 

C9 

RET 


} 

RETURN 


j 

1 EXTERNALLY 

REFERENCED 

ROUTINE 



RETURN ADDRESS OF END OF MEMORY TO USER 
VALUE RETURNED IN (B,A) 

STACK USAGE: 8 BYTES 


FDFl 



MEMCK; 





FOFl 


3A0500 


LDA 

HEMTOP+1 




FDF4 


3D 


DCR 

A 




FDF5 


47 


MOV 

B,A 




FDF6 


3EC0 


MVI 

A,USER 




FDF8 


C9 


RET 









EXTERNALLY 

REFERENCED 

ROUTINE 







DEFINE USER 

I/O ENTRY 

POINTS 







SELECTION CODE IN C 








ENTRY POINT 

IN D,E 








A, FLAGS MODIFIED 








STACK USAGE 

: 8 BYTES 




FDF9 



: 

[odef: 





FDF9 


E5 


PUSH 

H 




FDFA 


C5 


PUSH 

B 





1 


+• 

GET 

XTBL+1 




FDFB 

1 

2A0400 

+ 

LHLD 

MEMTOP 




FOFE 

1 

2EE9 

+ 

MVI 

L,OOOE9H 

AND OFFH 



FEOO 


79 


MOV 

A,C 




FEOl 


FE08 


CPI 

UCS + 1 




FE03 


D226F8 


JNC 

ERROR 

• 

9 

INVALID SELECTION CODE 


FE06 


81 


ADD 

C 

r 

DOUBLE INDEX 


FE07 


81 


ADD 

C 

9 

TRIPLE INDEX 


FE08 


4F 


MOV 

C,A 




FE09 


0600 


MVI 

B,0 




FEOB 


09 


DAD 

B 

9 

COMPUTE LOCATION OF I/O 

OPERAND 

FEOC 


73 


MOV 

M,E 

9 

STORE BRANCH OPERAND IN 

INSTRUCTION 

FEOD 


23 


INX 

H 




FEOE 


72 


MOV 

M,D 




FEOF 


Cl 


POP 

B 




FEIO 


El 


POP 

H 




FEl 1 


C9 


RET 









EXTERNALLY 

REFERENCED 

ROUTINE 



FE12 




[OCON: 


9 

INTERNAL ENTRY POINT FOR 

I/O CONTROL 
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FE12 

E3 

XTHL 


FE13 

4E 

MOV 

C,M 

FE14 

23 

INX 

H 

FE15 

E3 

XTHL 


FFlb 


SPCL: 


FE16 

E5 

PUSH 

H 

FE17 

2600 

MVI 

H,0 

FE19 

69 

MOV 

L,C 

FEIA 

74 

MOV 

M,H 

FEia 

El 

POP 

H 

FEIC 

C9 

RET 



END OF I/O SUBROUTINES, BEGINNING OF MONITOR SUBROUTINES 

READ TWO ASCII CHARACTERS, DECODE INTO 8 BITS BINARY 
REGISTER USAGE 

X = MODIFIED BY THIS ROUTINE, CONTENTS UNDEFINED. 

S = SET BY THIS ROUTINE, RETURNED AS A RESULT, 

U = USED AS INPUT, 


FEID 

9 

• 

9 

9 

9 

t 

• 

9 

9 

9 

9 

BYTE 

FEID 

C5 

FEIE 

CDADFF 

FE21 

CDEFFE 

FE24 

07 

FE25 

07 

FE26 

07 

FE27 

07 

FE28 

4F 

FE29 

CDADFF 

FE2C 

CDEFFE 

FE2F 

B1 

FE30 

4F 

FE31 

82 

FEi2 

57- 

FE33 

79 


A - 


B - 

C - 

0 - 

E - 

H - 

L - 

CARRY - X 

ZERO - 

SIGN - X 

PARITY 

SP - 

STACK USAGE; 

PC - 


PUSH 

B 

CALL 

RIX 

CALL 

RLC 

RLC 

RLC 

RLC 

NIBBLE 

MOV 

C,A 

CALL 

RIX 

CALL 

NIBBLE 

ORA 

C 

MOV 

C,A 

ADD 

D 

MOV 

D, A 

MOV 

A,C 


X 

- X 


; READ CHAR FROM TAPE 
; CONVERT ASCII TO HEX 

; SHIFT FOUR PLACES 

; GET LOWER NIBBLE 

; UPDATE CHECKSUM 
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FE34 

Cl 

POP B 


FE3 5 

C9 

RET 

; RETURN 



CONVERT 4 BIT HEX 

VALUE TO ASCII CHARACTER 



INPUT - 0,,.0FH 
OUTPUT - 30H,,.39H 

, 41H...46H 



REGISTER USAGE 




X = MODIFIED BY THIS ROUTINE, CONTENTS UNDEFINED. 

S = SET BY THIS ROUTINE, RETURNED AS A RESULT. 



U = USED AS INPUT. 




A - U,X,S 

B - 

C - S 



D - 

E - 



H - 

L - 



CARRY - X 

ZERO - X 



SIGN - X 

PARITY - X 



SP - 

STACK USAGE: 

PC - 

FE36 


:oNv; 


FE36 

E60F 

ANI OFH 

; ONLY 4 LSB ARE SIGNIFICANT 

FE3 8 

C690 

ADI 90H 

; SET UP A SO THAT A-F CAUSE CARRY 

FE3A 

27 

DAA 


FE3B 

CE40 

ACI 40H 

; ADO IN CARRY AND ADJUST UPPER NIBBLE 

FE3D 

27 

DAA 


FE3E 

4F 

MOV C,A 


FE3F 

C9 

RET 

; RETURN 


TYPE CARRIAGE RETURN AND LINE FEED ON CONSOLE 


FE40 

FE40 

1 

C 

CD64FD 

:rlf: 

CALL 

CUMC 

FE43 

00 

Db 

CR 

FE44 

CD64F0 

CALL 

•CQMC 

FE47 

OA 

DB 

LF 

FE48 

C9 

RET 



PRINT CONTENTS OF. HL IN HEX ON LIST DEVICE 
REGISTER USAGE 

X = MODIFIED BY THIS ROUTINE, CONTENTS UNDEFINED, 
S = SET BY THIS ROUTINE, RETURNED AS A RESULT. 

U = USED AS INPUT, 


A 

B 

D 


X 


C 

E 
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FS49 

FE49 

FE4A 

FE4D 

FE4E 


H - U 
CARRY - X 
SIGN - X 
SP - 

STACK USAGE: 


L - U 
ZERO - X 
PARITY - X 
PC - 


DADR: 


7C 

CD51FE 

70 

C351FE 


MOV 

CALL 

MOV 

JMP 


A,H 

DBYTE 

A,L 

DBYTE 


PRINT MSB 
PRINT LSB 


LIST A BYTE ON THE LIST DEVICE AS 2 ASCII CHARACTERS 
REGISTER USAGE 

X = MODIFIED BY THIS ROUTINE, CONTENTS UNDEFINED. 

S = SET BY THIS ROUTINE, RETURNED AS A RESULT. 

U = USED AS INPUT. 


A - U,X 

B - 
D - 
H - 

CARRY - X 
SIGN - X 
SP - 

STACK USAGE: 


C - X 

E - 
L - 

ZERO - X 
PARITY - X 
PC - 


FE51 

1 

I 

)BYTE 

. 


FE51 

F5 


PUSH 

PSW 

FE52 

OF 


RRC 


FE53 

OF 


RRC 


FE54 

OF 


RRC 


FE55 

OF 


RRC 


FE56 

CD36FE 


CALL 

CUNV 

FE59 

CD97FD 


CALL 

LOM 

FE5C 

FI 


POP 

PSW 

r E5D 

CD36FE 


CALL 

CONV 

FE60 

C397FD 


JMP 

LOM 


, 

•1.0 

MS. 

DELAY 


. 

REGISTER 

USAGE 



• X = 

MODIFIED BY 



S = 

SET 

BY THIS 


; SAVE A COPY OF A 


; RETRIEVE ORIGINAL VALUE 


A RESULT. 


U = USED AS INPUT. 


A 

8 


C 
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D - 


E - 




H - 


L - 




CARRY 

- X 

ZERO - X 




SIGN - 

X 

PARITY - 

X 



SP - 

4 

PC - 




STACK 

USAGE; 



FE6 3 


lELAV; 




FEfa3 

DBFF 

IN 

RTC 

i 

LOOP UNTIL REAL TIME 

FE65 

E601 

AM 

RTCS 

# 

CLOCK CHANGES PHASE 

FE67 

CA63FE 

JZ 

DELAY 



FE6A 

C9 

RET 


t 

RETURN 



DISPLAY THE CONTENTS 

OF A USER REGISTER 



HL POINTS 

TO CHARACTER IN ACTBL, 



RETURNS POINTING TO 

NEXT CHARACTER 



DE IS RETURNED WITH 

ADDRESS OF REGISTER LOCATION 



b IS RETURNED WITH THE REGISTER PRECISION 

FE6B 


)REG: 




FE6B 

23 

I NX 

H 



FE6C 

5E 

MOV 

E,M 


INCREMENT HL TO POINT AT DISPLACEMENT 

FE6D 

3A0500 

LDA 

MEMTOP+1 


LOCATE REGISTER CONTENTS 

FE70 

57 

MOV 

D,A 


IN TOP OF MEMORY 

FE71 

23 

INX 

H 



FE72 

46 

MOV 

B,M 


PRECISION, 0=8 BITS, 1=16 BITS 

FE73 

23 

INX 

H 


POINT AT NEXT REGISTER IDENTIFIER 

FE74 

lA 

LDAX 

D 


8/16 BIT DISPLAY AND MODIFICATION 

FE75 

CDAAFE 

CALL 

LBYTE 


MSB OF 16 BIT REG, ALL OF 8 BIT REG 

FE78 

05 

DCB 

B 


TEST PRECISION 

FE7 9 

F8 

RM 



8 BIT DISPLAY, RETURN 

FE7A 

IB 

DCX 

D 



FE7B 

lA 

LDAX 

D 



FE7C 

C3AAFE 

JMP 

LBYTE 


LSB OF 16 BIT REG 


EVALUATE EXPRESSION; <EXPR>,<EXPH>,<EXPR> 

THE C REGISTER CONTAINS THE NUMBER OF PARAMETERS REQUIRED 
(1,2, OR 3J. PARAMETERS ARE RETURNED ON THE STACK. 

REGISTER USAGE 

X = MODIFIED BY THIS ROUTINE, CONTENTS UNDEFINED. 

S = SET BY THIS ROUTINE, RETURNED AS A RESULT. 

U = USED AS INPUT. 


A - 
B - 

D - 

h - 


C 

E 

L 
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CARRY - X ZERO - X 

SIGN - X PARITY - X 

SP - PC - 

STACK USAGE; 


FE7F 

FE7F 

CDCBFE 

EXPR: 

CALL 

PARAM 

FE82 

E3 


XTHL 


FE83 

E5 


PUSH 

H 

FE84 

OD 


DCR 

C 

FE85 

D28CFE 


JNC 

EXO 

FE88 

C226F8 


JNZ 

ERROR 

FE8B 

FE8C 

C9 

EXO: 

RET 


FE8C 

C27FFE 


JNZ 

EXPR 

FE8F 

C326F8 


JMP 

ERROR 


; GET A PARAMETER 
; GET RETURN ADDRESS OFF STACK, 
; PUT HL ON 

; REPLACE RETURN ADDRESS 
; DECREMENT COUNT 
; COMMA ENTERED 
; INCORRECT PARAM COUNT 


; GET ANOTHER PARAMETER 
; NOT TERMINATED WITH CR 


COMPARE HL WITH DE: 

IF HL <= DE THEN CARRY = 0; 

IF HL > DE THEN CARRY = 1; 

REGISTER USAGE 

X = MODIFIED BY THIS ROUTINE, CONTENTS UNDEFINED. 
S = SET BY THIS ROUTINE, RETURNED AS A RESULT. 

U s USED AS INPUT. 


A - 


B - 
D - 
H - 




CARRY 

- X 



SIGN - 

X 



SP - 
STACK 

USAGE 

FE92 


IILG: 


FE92 

23 

I NX 

H 

FE93 

7C 

MOV 

A,H 

FE94 

B5 

ORA 

L 

FE95 

37 

STC 


FE96 

C8 

RZ 


FE97 

7B 

MOV 

A,E 

FE98 

95 

SUB 

L 

FE99 

7A 

MOV 

A,D 

FE9A 

9C 

SBB 

H 

FE9B 

C9 

RET 



C - 
E - 
L - 

ZERO - X 
PARITY - X 
PC - 


; BUMP HL 
; TEST FOR HL = 0 


; DE - HL, SET/RESET CARRY 


; RETURN 


CONVERT NIBBLE IN A-REGISTER TO ASCII IN A-REGISTER 
AND PRINT ON CONSOLE DEVICE 
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FE9C 

FE9C 

FE9F 


FEA2 

FEA2 

FEA3 

FEAb 

FEA7 


REGISTER USAGE 

X = MODIFIED BY THIS ROUTINE, CONTENTS UNDEFINED. 
S = SET BY THIS ROUTINE, RETURNED AS A RESULT. 

U = USED AS INPUT. 


A - 
B - 
D - 
H - 

CARRY - X 
SIGN - X 
SP - 

STACK USAGE: 


C - 
E - 
L - 

ZERO - X 
PARITY - X 
PC - 


HXD; 


CD36FE 

C330FO 


CALL 

JMP 


CONV 

COM 


PRINT CONTENTS OF HL IN HEX ON CONSOLE DEVICE 
REGISTER USAGE 

X = MODIFIED BY THIS ROUTINE, CONTENTS UNDEFINED. 
S = SET BY THIS ROUTINE, RETURNED AS A RESULT. 



U = 

USED 

AS INPUT. 






A - 







B - 


C - 





D - 


E -> 





H - 


L - 





CARRY 

- X 

ZERO - 

X 




SIGN 

- X 

PARITY 

- X 




SP - 


PC - 





STACK 

USAGE; 





jADR; 






7C 


MOV 

A,H 


; PRINT 

MSB 

CDAAFE 


CALL 

LBYTE 




7D 


MOV 

A,L 


; PRINT 

LSB 

C3AAFE 


JMP 

LBYTE" 





LIST A BYTE AS 2 ASCII CHARACTERS 


REGISTER USAGE 

X = MODIFIED BY THIS ROUTINE, CONTENTS UNDEFINED. 
S = SET BY THIS ROUTINE, RETURNED AS A RESULT. 

U = USED AS INPUT. 
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A - 
B - 
D - 
H - 

CARRY - X 
SIGN - X 
SP - 

STACK USAGE: 


C - 
E - 
L - 

ZERO - X 
PARITY - 
PC - 


X 


FEAA 


lbyte: 


FEAA 

F5 


PUSH 

PSW 

FEAB 

OF 


PRC 


FEAC 

OF 


RRC 


FEAD 

OF 


RRC 


FEAE 

OF 


RRC 


FEAF 

CD9CFE 


CALL 

HXD 

FEB2 

FI 


POP 

PSW 

FEb3 

C39CFE 


JMP 

HXD 




PRINT CR 

, LF ON LIST DEV 

FE66 


] 

.CRLF: 


FEB6 

OEOD 


MVI 

C,CR 

FEB8 

CD97FO 


CALL 

LOM 

FEBB 

OEOA 


MVI 

C,LF 

FEBO 

C397FO 


JMP 

LOM 




PUNCH 6 

INCHES OF LEADER 




REGISTER 

USAGE 


SAVE A COPY OF A 


RETRIEVE ORIGINAL VALUE 


X = modified by this routine, CONTENTS UNDEFINED. 
S = SET BY THIS ROUTINE, RETURNED AS A RESULT. 

U = USED AS INPUT. 


A - X 
B - X 

D - 
H - 

CARRY - X 
SIGN - X 
SP - 

STACK USAGE: 


FECO 

FECO 

063C 

9 

LEAD: 

MVI 

B,60 

FEC2 

FEC2 

CD6BFD 

LEO: 

CALL 

POC 

FEC5 

00 


DB 

0 

FEC6 

05 


OCR 

B 

FEC7 

C2C2FE 


JMZ 

LEO 


C - X 

E - 
L - 

ZERO - 
PARITY 
PC - 


X 


X 


; SET TO PUNCH 6 INCHES OF NULLS 


ERRORS 
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FECA 

C9 

RET 


; RETURN 



COLLECT A 

HEXADECIMAL PARAtMETER 

FECB 

F 

>aram: 



FECB 

CDIFFF 

CALL 

PCHK 

; GET FIRST CHARACTER 

FECE 

CA26F8 

JZ 

ERROR 

; DISALLOW NULL PARAMETERS 

FEDl 

PAO: 



FEDl 

210000 

LXl 

H,0 

; CLEAR ACCUMULATOR 

FED4 

PAl : 



FED4 

47 

MOV 

B,A 

; SAVE DELIMITER CHARACTER 

FED5 

CDEFFE 

CALL 

NIBBLE 

; CONVERT TO HEX 

FEDS 

DAE7FE 

JC 

PA2 

; NOT LEGAL CHAR, TREAT AS DELIMITER 

FEDB 

29 

DAD 

H 

,* +2 

FEDC 

29 

DAD 

H 

; ^4 

FEOD 

29 

DAD 

H 

; ♦s 

FEDE 

2,9 

DAD 

H 

; »16 

FEDF 

B5 

ORA 

L 


FEEO 

6F 

MOV 

l,a 


FEEl 

CDE8FF 

CALL 

TI 

i GET SUBSEQUENT CHARACTERS 

FEE4 

C3U4FE 

JMP 

PAl 

.* DECODE NEXT CHARACTER 

FEE7 

PA2: 



FEE7 

78 

MOV 

A,B 


FEES 

CD22FF 

CALL 

P2C 


FEEB 

C226F8 

JNZ 

ERROR 


FEEE 

C9 

RET 





DECODE ASCII CHAR IN 

A-REGISTER INTO HEX DIGIT IN A-REGISTER 



FILTER OUT 

ALL CHARACTERS NOT IN THE SEQUENCE (0...9,A...F). 



RETURN CARRY = 1 FOR 

ILLEGAL CHARACTERS. 



REGISTER USAGE 




X = MODIFIED BY THIS 

ROUTINE, CONTENTS UNDEFINED. 



S = SET BY 

THIS ROUTINE, RETURNED AS A RESULT. 



U = USED AS INPUT. 




A - 





B - 


C - 



D - 


E - 



h - 


L - 



CARRY 

- X 

ZERO - X 



SIGN - 

X 

PARITY - X 



SP - 


PC - 



STACK 

USAGE; 


FEEF 


VIBBLE: 



FEEF 

D630 

SUl 

'0' 


FEE 1 

D8 

RC 


; FILTER OUT 0-2FH 

FEF2 

C6E9 

ADI 

1 

o 


FEF4 

D8 

RC 


; FILTER OUT 47H-0FFH 


FILTER OUT 47H-0FFH 
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FEF5 

C606 

ADI 

6 



FEF7 

F2FDFE 

JP 

NIO 

• 

9 

TAKE BRANCH FOR A-F 

FEFA 

C607 

ADI 

7 



FEFC 

D8 

RC 


9 

FILTER OUT 3AH-40H 

FEFD 


NIO: 




FEFD 

C60A 

ADI 

10 



FEFF 

B7 

ORA 

A 

9 

CLEAR ERROR FLAG 

FFOO 

C9 

RET 


9 

RETURN 


PUNCH CONTENTS OF HL IN HEX ON PUNCH DEVICE 


REGISTER USAGE 


X = MODIFIED BY THIS ROUTINE, CONTENTS UNDEFINED. 
S = SET BY THIS ROUTINE, RETURNED AS A RESULT. 

U = USED AS INPUT. 




A - 





B - 


C - 



D - 


E - 



H - 


L - 



CARRY 

- X 

ZERO - 



SIGN - 

X 

PARITY 



SP - 
STACK 

usage: 

PC - 

FFOl 


^adr: 



FFOl 

7C 

MOV 

A,H 


FF02 

C009FF 

CALL 

PBYTE 


FF05 

7D 

MOV 

A,L 


FF06 

C309FF 

JMP 

PBYTE 



PUNCH A BYTE AS 2 ASCII CHARACTERS 


REGISTER USAGE 


X = MODIFIED BY THIS ROUTINE, CONTENTS UNDEFINED. 
S = SET BY THIS ROUTINE, RETURNED AS A RESULT. 

U = USED AS INPUT. 


PBYTE 


A - 
B - 
D - 
H - 

CARRY - X 
SIGN - X 
SP - 

STACK USAGE: 


E,A 


C - 
E - 
L - 

ZERO - X 
PARITY - 
PC - 


X 


FF09 

FF09 


5F 


MOV 


SAVE VALUE 
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FFOA 

OF 

RRC 



FFOB 

OF 

RRC 



FFOC 

OF 

RRC 



FFOD 

OF 

RRC 



FFOE 

CD36FE 

CALL 

CONV 


FFll 

CD6FFD 

CALL 

PO 


FFl 4 

7B 

MOV 

A,E 


FF15 

CD36FE 

CALL 

CONV 


FF18 

CD6FFD 

CALL 

PO 


FFIB 

7B 

MOV 

A,E 


FFIC 

82 

ADD 

D 


FFID 

57 

MOV 

D, A 


FFIE 

C9 

RET 


; RETURN 



TEST FOR 

NULL INPUT 

PARAMETER 



REGISTER 

USAGE 




X = MODIFIED BY THIS 

ROUTINE, CONTENTS UNDEFINED. 



S = SET BY THIS ROUTINE, RETURNED AS A RESULT. 



U = USFD 

AS INPUT. 




A - 





B - 


C - 



D - 


E “ 



H - 


L - 



CARRY 

- X 

ZERO - X 



SIGN 

- X 

PARITY - X 



SP - 


PC - 



STACK 

USAGE! 


FFIF 


KriK: 



FFIF 

cdehff 

CALL 

TI 

; GET A CHARACTER 

FF22 

P2C; 



FF22 

FE20 

CPI 

' * 


FF24 

C8 

HZ 



FF25 

FE2C 

CPI 

§ # 

9 


FF27 

C8 

RZ 



FF28 

FEUD 

CPI 

CR 


FF2A 

37 

STC 



FF2B 

C8 

RZ 



FF2C 

3F 

CMC 



FF2D 

C9 

RET 





; PUNCH CR, 

LF 




; REGISTER 

USAGE 



X = MODIFIED BY THIS ROUTINE, CONTENTS UNDEFINED. 
S = SET BY THIS ROUTINE, RETURNED AS A RESULT. 

U = USED AS INPUT. 
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A - 
B - 
D - 
H - 

CARRY - X 
SIGN - X 
SP - 

STACK USAGE 


FF2E 

1 

t 

>E0L: 


FF2E 

CD6BFD 

CALL 

POC 

FF31 

OD 

DB 

CR 

FF32 

CD6BFD 

CALL 

POC 

FF35 

OA 

DB 

LF 

FF36 

C9 

RET 



i 

j 

r RESTART 2 

CODE, 


C - 
E - 
L - 

ZERO - X 
PARITY - 
PC - 


X 


PROGRAMMED BREAKPOINT). 


; THIS ROUTINE IS ENTERED VIA A RESTART 0 (RST 0) INSTRUCTION. 

; THE INSTRUCTION IS ENCOUNTERED EITHER IN THE USER PROGRAM (AS 
; A BREAKPOINT) OR IS INPUT VIA A CONSOLE INTERRUPT, THIS 
; ROUTINE SAVES THE STATE OF THE CALLING PROCESS AND TURNS CONTROL 
; OVER TO THE MONITOR. 

FF37 RESTART: 


FF3 7 


F3 


DI 


f 

DISABLE IF SOFTWARE TRAP 

FF38 


E5 


PUSH 

H 

■ 9 

SAVE MACHINE STATE 

FF39 


D5 


PUSH 

D 



FF3A 


C5 


PUSH 

B 



FF36 


F5 


PUSH 

PSW 



FF3C 


El 


POP 

H 

0 

GET A,F IN H,L 

FF3D 


DBFC 


IN 

MASK 



FF3F 


F5 


PUSH 

PSW 

0 

SAVE INTERRUPT MASK 

FF40 


E5 


PUSH 

H 

0 

STACK A,F ABOVE MASK 

FF41 


3EFE 


MVl 

A,NOT INTO 



FF43 


D3FC 


OUT 

MASK 

9 

SET DEFAULT INTERRUPT MASK 


1 


+ 

GET 

EXIT 

0 

FIND TOP OF MEMORY 

FF45 

1 

.2A0400 

+ 

LHLD 

MEMTOP 



FF48 

1 

2ED2 


MVI 

L,EXIT AND OFFH 









0 

hL = NEW STACK POINTER 

FF4A 


EB 


XCHG 





1 


+ 

FETCH 

12 

9 

COMPUTE ORIGINAL STACK POINTER 

FF4B 

1 

210COO 


LXI 

H,0000Ch 



FF4E 

1 

39 

+ 

DAO 

SP 



FF4F 


0b05 


MVI 

B,5 

0 

COUNT FOR TRANSFER OF MACHINE STATE 







9 

TO STORAGE (MOVE THE STACK) 

FF51 


E8 


XCHG 




FF52 



RSTO: 





FF52 


2B 


OCX 

H 



FF5 3 


72 


MOV 

M,D 
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FF54 


2B 


OCX 

H 





FF55 


73 


MOV 

M,E 





FF56 


D1 


POP 

D 





FF57 


05 


DCR 

B 





FFS8 


C252FF 


JNZ 

RSTO 





FF5B 


Cl 


POP 

B 



• 

9 

GET OLD PC = B,C; OLD HL = D,E 

FF5C 


OB 


OCX 

B 



• 

9 

DECREMENT TO POINT AT TRAPPED CODE 

FF5D 


F9 


SPHL 




9 

NEW STACK VALUE 


1 


+ 

GET 

TLOC 





FF5E 

1 

2A0400 

+ 

LHLD 

MEMTOP 





FF61 

1 

2EE2 


MVI 

L,TLOC 

AND 

OFFH 



FF63 


7E 


MOV 

A,M 



9 

TEST IF THIS IS A PROGRAMMED RESTART 

FF64 


91 


SUB 

C 



9 

OR A CONSOLE RESTART 

FF65 


23 


INX 

H 





FF66 


7E 


MOV 

A,M 





FF67 


98 


SBB 

B 





FF68 


CA7AFF 


JZ 

RSTl 



9 

PC MATCHES TRAPl, PROGRAMMED RESTART 

FF^B 


23 


INX 

H 





FF6C 


2 3 


INX 

H 





FF6D 


7E 


MOV 

A,M 





FF6E 


91 


SUB 

C 





FF6F 


23 


INX 

H 





FF70 


7E 


MOV 

A,M 





FF71 


98 


SBB 

B 





FF72 


CA7AFF 


JZ 

RSTl 



• 

9 

PC MATCHES TRAP2, PROGRAMMED RESTART 

FF7 5 


3E20 


MVI 

A,EOI 



• 

9 

END OF INTERRUPT 

FF77 


D3FD 


OUT 

REVRT 



• 

9 

REVERT INTERRUPT SYSTEM 

FF79 


03 


INX 

B 



• 

9 

ADJUST PC FOR CONSOLE RESTART 

FF7A 



RSTl 

: 







1 


4 

GET 

LLOC 





FF7A 

1 

2A0400 

+ 

LHLD 

MEMTOP 





FF7D 

1 

2EDC 


MVI 

L,LLOC 

AND 

OFFH 



FF7F 


73 


MOV 

M,E 





FF80 


23 


INX 

H 





FF81 


72 


MOV 

M,D 



9 

SAVE OLD HL 

FF82 


2EE0 


MVI 

L,PLOC' 

-1 




FF84 


71 


MOV 

M,C 



9 

SAVE OLD PC 

FF85 


23 


INX 

H 





FF86 


70 


MOV 

M,B 





FF87 


C5 


PUSH 

B 





FF8 8 


CD64FD 


CALL 

COMC 





FF8B 


2A 


DB 






FF8C 


El 


POP 

H 



9 

RETRIEVE OLD PC FOR DISPLAY * 

FF8D 


CDA2FE 


CALL 

LADR 



9 

DISPLAY PC 


1 


+ 

GET 

TLOC 



9 

CLEAR TRAPS 

FF90 

1 

2A0400 

+ 

LHLD 

MEMTOP 





FF93 

1 

2EE2 

+ 

MVI 

L,TLOC 

AND 

OFFH 



FF95 


1602 


MVI 

D,2 



9 

9 

SET COUNT FOR TWO TRAPS 

FF97 



RST2 

: 






FF97 


4E 


MOV 

C ,M 



9 

GET LSB OF ADDRESS 

FF98 


AF 


XRA 

A 
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FF99 

77 

MOV 

M,A 



FF9A 

23 

INX 

H 



FF9e 

46 

MOV 

B,M 

9 

GET MSB OF ADDRESS 

FF9C 

77 

MOV 

M,A 



FF9D 

23 

INX 

H 



FF9E 

79 

MOV 

A,C 



FF9F 

BO 

ORA 

B 

9 

TEST FOR VALID TRAP 

FFAO 

CAA5FF 

JZ 

RST3 

9 

ADDRESS = 0, NO TRAP TO RESTORE 

FFA3 

7E 

MOV 

A,M 

9 

GET OPCODE BYTE 

FFA4 

02 

STAX 

B 

9 

REPLACE IT 

FFA5 


RST3: 




FFA5 

23 

INX 

f) 

• 

9 

POINT TO NEXT TRAP ADDRESS 

FFA6 

15 

OCR 

D 



FFA7 

C297FF 

JNZ 

RST2 

9 

REPEAT FOR TRAP 2 

FFAA 

C330F8 

JMP 

START 

' 

ENTER MONITOR 


GET character FROM READER, MASK OFF PARITY BIT 


REGISTER USAGE 

X = MODIFIED BY THIS ROUTINE, CONTENTS UNDEFINED. 
S = SET BY THIS ROUTINE, RETURNED AS A RESULT. 

U = USED AS INPUT. 

A - 


B - C - 
D - E - 
H - L - 




CARRY 

- X 

ZERO - X 



SIGN - 

X 

PARITY - X 



SP - 
STACK 

USAGE: 

PC - 

FFAD 


<ix: 



FFAD 

CDD5FC 

CALL 

RI 


FFBO 

DA26F8 

JC 

ERROR 

; READER TIMEOUT ERROR 

FFB3 

E67F 

ANI 

7FH 


FFB5 

C9 

RET 


; RETURN 


GET A CHARACTER FROM THE CONSOLE DEVICE, ASSUME 
THAT IT'S A SOCKET SELECT OPTION CHARACTER, AND TURN 
IT INTO A SOCKET SELECTION MASK. IF THE CHARACTER IS 
IN ERROR, TAKE THE STANDARD ERROR EXIT. 

REGISTER USAGE 

X = MODIFIED BY THIS ROUTINE, CONTENTS UNDEFINED. 

S = SET BY THIS ROUTINE, RETURNED AS A RESULT. 

U = USED AS INPUT. 


A 
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B - 


C - 



D - 


E - 



H - 


L - 



CARRY 

- X 

ZERO - X 



SIGN - 

X 

PARITY - X 



SP - 


PC - 



STACK 

USAGE: 


FF66 


SELECT; 



FFB6 

DBFl 

IN 

PSTAT 

f READ PROM PROGRAMMER STATUS 

FFB8 

B7 

ORA 

A 

; PROM PERIPHERAL CONNECTED? 

FFB9 

CA26F8 

JZ 

ERROR 

; NO, ABORT 

FFBC 

CDE8FF 

CALL 

TI 


FFBF 

FE54 

CPI 

'T' 


FFCl 

C2C8FF 

JNZ 

SEO 


FFC4 

AF 

XRA 

A 


FFC5 

C3CFFF 

JMP 

SEl 


FFC8 

SEO; 



FFC8 

FE46 

CPI 

'F' 


FFCA 

C226F8 

JNZ 

ERROR 


FFCD 

3EFF 

MVI 

A,OFFH 


FFCF 

SEl: 



FFCF 

320400 

STA 

MSK 


FFD2 

CDE8FF 

CALL 

TI 


FFD5 

0658 

SUI 

'X* 


FFD7 

OlFFOO 

LXI 

B,OFFH 

; OPTION X SELECTED 

FFDA 

C8 

RZ 



FFDB 

3D 

OCR 

A 


FFDC 

01FO30 

LXI 

B,(PSOCK 

OR PNI8) SHL 8 t OFOH 

FFDF 

C8 

RZ 



FF£0 

30 

OCR 

A 


FFEl 

C22bF8 

JMZ 

ERROR 


FFE4 

010F20 

LXI 

B,PSOCK 

SHL 8 + OFH ; OPTION Z SELECTED 

FFE7 

C9 

RET 





INPUT FROM 

CONSOLE, 

ECHOED AND RETURNED IN A 



REGISTER USAGE 




X = MODIFIED B^ THIS 

ROUTINE, CONTENTS UNDEFINED. 



S = SET BY 

THIS ROUTINE, RETURNED AS A RESULT. 



U = USED AS INPUT. 




A - 





8 - 


C - 



D - 


E - 



H - 


L - 



CARRY 

- X 

ZERO - X 



SIGN - 

X 

PARITY - X 



SP - 


PC - 



STACK 

USAGE; 
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FFE8 

FFE8 

C5 

Tl; 

PUSH 

B 

FFE9 

CDA2FC 


CALL 

Cl 

FFEC 

E67F 


ANI 

7FH 

FFEE 

FE0 3 


CPI 

ETX 

FFFO 

CA26F8 


JZ 

ERROR 

FFF3 

4F 


MOV 

C,A 

FFF4 

CD3AFD 


CALL 

CO 

FFF7 

79 


MOV 

A,C 

FFF8 

Cl 


PUP 

B 

FFF9 

C9 


RET 



; MASK PARITY 
; TEST FOR BREAK 
; ABORT COMMAND 

; ECHO 

; RETURN 


? END OF PROGRAM 

« 

END 

NO PROGRAM ERRORS 
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S'jfMBUL TABLE 


laUSER 

FD27 


A 

0007 


ACT 

F8EC 


ACT8L 

FC70 


ALOC 

OOCF 


ALT 

F904 


APT 

F8FC 


ART 

F6F4 


ASO 

F897 


ASt 

F8A6 


AS2 

FBBE 


AS3 

F8CB 


ASSIG 

F88F 


B 

0000 


BASE 

F800 


BATCH 

0002 


BEGIN 

F800 


BLK 

F02E 


BLOC 

OOCB 


BNO 

F918 


8N1 

F922 


BNPF 

F90C 


BOUT 

0002 


BREAK 

FCCD 


BYTE 

FEIU 


C 

0001 


CASE 

OFOD 


CCRT 

0001 


Cl 

FCA2 


CIO 

FCB4 


CIl 

FCC3 


CILOC 

00E8 


CL5 

0000 


CL6 

0004 

* 

CL7 

0008 

♦ 

CL8 

OOOC 


CLERH 

0010 

■¥ 

CLFLG 

OOOF 


CLUC 

OOCA 


CMO 

F958 


CMl 

F98B 


CMSK 

OOFC 


CO 

FD3A 


COO 

FD4D 


COLOC 

OOEB 


COM 

FD30 


COMC 

FD64 


COMP 

F949 


CONV 

Ft: 3 6 


CPFLG 

OOOE 


CR 

OOOD 


CPLF 

FE40 


CRTC 

00F7 


CRTl 

OOFb 


CRTIN 

FCB9 


CRTO 

OOFb 


CRTQU 

FD59 


CRTS 

0 0F7 


CSO 

FDCE 


CSl 

FDD5 


CS2 

FDDy 


CS3 

FDDC 


CSLOC 

OOFD 


CSTS 

FDCl 


CTBL 

F85F 


CITY 

0000 


CUSE 

0003 


D 

0002 


DADR 

FE49 


DATE 

2608 


DBYTE 

FE51 


DEBUG 

0 00 0 


DELAY 

FE63 


DIO 

F99D 


DU 

F9A3 


DI2 

F9B3 


DISP 

F994 


DLOC 

00C9 


DREG 

FE6B 


DSR 

0080 

♦ 

DTR 

0002 


E 

0003 


ELOC 

OOCB 


ENDX 

0100 

* 

EOF 

F9C8 


EOI 

0020 


ERROR 

F826 


ETX 

0003 


EXO 

FE8C 


EXIT 

OOD2 


EXPR 

FE7F 


FALSE 

0000 


FETCH 

0F9C 


FIO 

FyED 


■ FILL 

F9Eb 


FLOC 

OOCE 


GET 

0F95 


GOO 

FAOD 


GOl 

FA13 


GD2 

FA23 


G03 

FA2B 


GU'i 

FA3A 


GOTO 

F9F5 


H 

0004 


HEXN 

FA3E 


HILQ 

FE92 


HLQC 

OODD 


HXD 

FE9C 


ICON 

00F3 


ICPTl 

0020 

* 

ICRTO 

0010 


ILOC 

OOCD 


ILPT 

0040 

* 

INIT 

0003 

* 

INITI 

0006 


INTO 

0001 


INTI 

0002 

♦ 

XNT2 

0004 

* 

I NT 3 

0008 


iNT4 

0010 

♦ 

1NT5 

002U 

♦ 

INT6 

0040 

* 

iNT7 

0080 

♦ 

lOBYT 

0003 


IQCHK 

FDE8 


lOCUN 

FEU 


lODEF 

FDF9 


lOSET 

FDEC 


IPTP 

0004 

♦ 

IPTR 

0008 

* 

ISTAT 

OOFA 

♦ 

ITTYI 

0002 

* 

ITTYO 

0001 

* 

L 

0005 


LILOC 

OOFA 


LADR 

FEA2 


LBYIE 

FEAA 


LCRLF 

FEB6 


LCRT 

0040 


LCT 

0018 


LEO 

FEC2 


LEAD 

FECO 


LF 

OOOA 


LLOC 

OODC 


LLPT 

0080 


LMSK 

003F 


LO 

FDAl 


LOO 

FA62 


LOl 

FA6C 


L02 

FA79 


LOAD 

FA59 


LOCK 

OOFE 

* 

LOH 

FD97 


LPO 

FUB5 


LPTC 

OOFB 

♦ 

LPTU 

OOFA 


LPIRY 

0001 


LPTS 

OOFB 


LTBL 

F80C 


LTIY 

0000 


LUSE 

ooco 


LVER 

0015 


H 

0006 


MASK 

OOFC 


MEMCK 

FUFl 


MEMTO 

0004 


MEMB 

0080 

♦ 

MOVE 

FA8E 


MSK 

0004 


MVO 

FA95 


NIO 

FEFD 


NIBBL 

FEEF 


NREGS 

oooc 


NUO 

FAAB 


NULL 

FA9F 


OLFLG 

OOOC 


OPFLG 

OOOB 


ORFLG 

0007 


PILOC 

00F4 


P2C 

FF22 


P2L0C 

00F7 


PAO 

FEDl 


PAl 

FED4 


PA2 

FEE7 


PADR 

FFOl 


PARAM 

FECb 


PBYTE 

FF09 


PCHK 

FFIF 


PCOMP 

0002 


PLATA 

OOFO 


PENB 

0010 

» 

PEOL 

FF2E 


PEVEN 

0020 

♦ 

PGRDY 

0001 


PHI 

OOFl 


PLO 

00F2 


PLOC 

OOEl 


PMSK 

OOCF 


PNIB 

0010 


PO 

FD6F 


POO 

FD7C 


POl 

FD8B 


POC 

FD6B 


PPTP 

0010 


PRO 

FACD 


PRl 

FADA 


PR2 

FAEF 


PROG 

FAB7 






PSOCK 

0020 


PSTAT 

OOFl 


PTPC 

00F9 


PTPO 

OOFS 


PIPS 

00F9 


PTHAD 

0008 


PTRI 

OOFS 


PTRRE 

0004 

4 

PUSEl 

0020 


PUSE2 

0030 


02 

FB29 


QUERY 

FAF5 


RILOC 

OOEE 


R24@l 

0003 


R48@l 

0002 

* 

R6!a2 

0002 

4 

READ 

FB33 


REDO 

FB3E 


RED3 

FB83 


RESET 

0000 


RFR 

0020 

4 

R1 

FCD5 


RI2 

FCF7 


RI3 

FCFC 


RI6 

FDID 


RIX 

FFAD 


RPAR 

0008 

4 

RPTR 

0004 


RSTl 

FF7A 


RST2 

FF97 


RTCS 

0001 


RTS 

0020 


RUSE2 

OOOC 


RXEN 

0004 


SEl 

FFCF 


SELEC 

FFB6 


SH2 

0068 


SH3 

0082 


SH6 

OOAE 


SIZE 

0F40 


SPCL 

FE16 


STl 

0040 


START 

F830 


SUO 

FB97 


TBE 

0004 

4 

TI 

FFE8 


TOUT 

OOFA 


TRO 

FBBF 


TRUE 

FFFF 


TIC 

00F5 


TTS 

00F5 


TTYAD 

0002 


TXEN 

0001 


UCI 

0000 

4 

ULl 

0006 

4 

UNTIL 

OF 86 


URl 

0002 

4 

UR2 

0003 

4 

VER 

OOOB 


VERS 

OOBl 


WRl 

FBEE 


WR2 

FbF9 


X 

FC22 


XO 

FC2D 


X3 

FC5B 


X4 

FC5C 


XTBL 

00E8 






* 02 


LOOP 0019 

♦ 03 

♦ 04 

♦ 05 

LOOP F8AC 

♦ 06 

LOOP F8b4 

♦ 07 

LOOP F8CB 

♦ 08 


PSW 

0006 


PTPAD 

0020 


PTPRE 

0010 

4 

PTPRY 

0004 


PTRC 

00F9 


PTRDY 

0001 


PTRS 

00F9 


PTTY 

0000 


QO 

FB02 


Q1 

FBIE 


RllO 

0002 


R12@2 

0001 

4 

R2LQC 

OOFl 


R3@2 

0003 

4 

R9b@l 

0001 

4 

RBR 

0002 


REDl 

FB60 


RED2 

FB78 


HESTA 

FF37 


PEVRT 

OOFD 


RIO 

FCE5 


RIl 

FCF3 


RI4 

FD07 


R15 

FD18 


RMSK 

00F3 


ROV 

0010 

4 

RRFLG 

OOOD 

4 

RSTO 

FF52 


RST3 

FFA5 


HTC 

OOFF 


RTTY 

0000 


RUSEl 

0008 


SBASE 

0000 


SEO 

FFC8 


SHO 

0006 


SHI 

002C 


SH4 

008E 


SH5 

00A5 


SLOC 

OODl 


SP 

0006 


ST 15 

0080 

4 

ST2 

OOCO 


SUl 

FBAD 


SUBS 

FB93 


TLQC 

00E2 


TOS 

00C8 


TRAN 

FBBl 


TRDY 

0001 


TTI 

00F4 


TTO 

00F4 


TTYIN 

FCAA 


TTYOU 

FD42 


UCO 

0001 

4 

UCS 

0007 


UPl 

0004 

4 

UP2 

0005 

4 

USER 

OOCO 


USRST 

0040 

4 

WHILE 

0F8E 


WRO 

FBE6 


WR3 

FC08 


WRITE 

FBDD 


XI 

FC3B 


X2 

FC3E 


X5 

FC66 


X6 

FC69 
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1.2, 15 SEPTEMBER 1975 ERRORS = 


intellec/mos monitor 

VERSION 1.2 

COPYRIGHT (C) 1974, 1975 
INTEL CORPORATION 
3065 BOWERS AVENUE 
SANTA CLARA, CALIFORNIA 95051 


<L£GAL COMMAND> ::= <ASSIGN I/O COMMAND> 

<BNPF PUNCH COMMANDS 
<COMPARE COMMAND> 

<DISPLAY MEMORY COMMAND> 

<£NDFILE GOMMAND> 

<FILL MEMORY COMMANDS 
<PROGRAM EXECUTE COMMAND> 

<HEXADECIMAL ARITHMETIC COMMAND> 

<L0AD BNPF C0MMAND> 

<MQVE MEMORY COMMAND> 

<LEADER COMMAND> 

<PR0GRAM C0MMAND> 

<QUERY STATUS COMMAND> 

<READ HEXADECIMAL FILE COMMAND> 
<SUBSTITUTE MEMORY C0MMAND> 

<TRANSFER COMMAND> 

<WRITE HEXADECIMAL RECORD COMMAWD> 
<REGISTER MODIFY COMMAND> 

<ASSIGN I/Q COMMAND> ;:= A<LOGICAL DEVICE>=<PHySICAL DEVICE> 
<8NPF PUNCH C0MMAND> B<NUMBER>,<NUMBER> 

<COMPARE COMMAND> C<T/F><SOCKET><NUMBER>,<NUMBER> 

<DISPLAY MEMORY COMMAND> D<NUMBER>,<NUM8ER> 

<EN0FIJ,E COMMAND> ::= E<NUMBER>^ 


; <F{LL MF.MORY COMMAND> F<NUMBER>, <NUMBER> , <NUMBER> 

; <PROGRAM EXECUTE COMMAND> G<NUMBER>,<NUMBER>,<NUMBER> 

? <riEXADECIMAL ARITHMETIC COMMAND> H<NUMBER>,<NUMBER> 

,* <LOAD BNPF COMMAND> L<NUMBER>, <NUMBER> 

; <MOVE memory C0MMAMD> M<NUMBER>,<NUMBER>,<NUMBER> 

; <LEADER COMMAMD> N 

; 

; <PROGRAM COMMAND> :;= P<T/F><SOCKET><NUMBER>,<NUMBER>,<NUMBER> 


0 PAGE 1 


98-155C 
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; <QUERY STATUS COMMAND> :t= 0 

t 

; <READ HEXADECIMAL FILE COMMAND> :;= R<NUMBER> 

; <SUBSTITUTE MEMORY COMMAND> ::= S<NUMBER>... 

f 

; <TRANSFER COMMAND> ;;= T<T/F><SOCKET><NUMBER>,<NUMBER> 

P 

; <WRITE HEXADECIMAL RECORD COMMAND> ::= iN<NUMBER>, <NUMBER> 

P 

; <REG1STER MODIFY COMMAND> X<REGISTER IDENTIFIER><NUMBER>... 

P 

; <L0GICAL DEVICE> :;= CONSOLElREADERiLISTlPUNCH 
; <PHYS1CAL DEVICE> ::= CRTlTTYiPTRlPTPlLPTIBATCH!1!2 

P 

; <REGISTER IDENTIFIER> ::= AiBiCIDlElFiHlIJLlMlPiS 

P 

; <sucKF.T> :;= xiYiZ 

p 

; <T/F> TIE 

P 

; <NUMBER> <HEX DIGIT> 

; <NUMBER><HEX DiGIT> 

I 

; <HEX 01GIT> O!li2i314l5i6!7!8l9lAiBiCi0lEiF 

OOOC VER EW 12 ? VERSION 1.2 

TITLE ' INTELLEC/MDS MONITOR, VERSION 1.2, 15 SEPTEMBER 1975 ' 
1509 DATE EQU 1509H ; CREATION DATE, 15 SEPTEMBER 1975 

P 

; note: 

p 

; THE DATE SHOWN ABOVE IS ENCODED INTO A TWO BYTE FIELD 
; IN BOTH THE BOOTSTRAP PROM AND THE MONITOR ROM IN ORDER 

; TO CONTROL NEW RELEASES OF THIS PROGRAM. 

• 

P 

; IN THE BOOTSTRAP PROM, THE DATE CODE IS LOCATED AT 
; ADDRESSES 4 AND 5. 

, 

; IN THE MONITOR ROM, THE DATE CODE IS LOCATED AT ADDRESSES 
; 0F824H AND 0F825H. 

P 

; IF ATJD WHEN A NEW RELEASE IS ISSUED, PLEASE CHANGE THE 
; DATE CODE. 

P 

P 

; INTELLEC/MDS SYSTEM CONSTANTS 
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; TTY 

AND 

CRT 

STATUS BITS 



0001 

f 

TRDY 

EQU 


OOOOOOOIB 


TRANSMIT READY 

0002 

RBR 

EQU 


OOOOOOlOB 


RECEIVE BUFFER READY 

0004 

TBE 

EOU 


OOOOOIOOB 


TRANSMIT EMPTY 

0008 

RPAR 

EDM 


OOOOTOOOB 


RECEIVE PARITY ERROR 

0010 

ROV 

EOU 


OOOIOOOOB 


RECEIVE OVERRUN ERROR 

0020 

PER 

EQU 


OOlOOOOOB 


RECEIVE FRAMING ERROR 

0080 

DSR 

EQU 


100000006 


DATA SET READY 


f 

; TTY 

• 

AND 

CRT 

INITIALIZATION CONTROLS 

0002 

f 

P48ai 

EOU 


OOOOOOlOB 


4800 BAUD @ JUMPER 1 

0001 

R96@l 

EQU 


OOOOOOOIB 


9600 BAUD @ JUMPER 1 

0003 

R24&i 

EQU 


0000001 IB 


2400 BAUD @ JUMPER 1 

0002 

R6(a2 

EQU 


OOOOOOlOB 


600 BAUD @ JUMPER 2 

0001 

R12@2 

EQU 


OOOOOOOIB 


1200 BAUD 0 JUMPER 2 

0003 

R3@2 

EQU 


OOOOOOllB 


300 BAUD @ JUMPER 2 

0002 

R110 

EQU 


OOOOOOlOB 


no BAUD @ JUMPER 3 

0008 

CL7 

EQU 


OOOOIOOOB 


CHARACTER LENGTH = 7 

oooc 

CL8 

EQU 


OOOOl.lOOb 


CHARACTER LENGTH = 8 

0004 

CL6 

EQU 


00000100b 


CHARACTER LENGTH = 6 

0000 

CL5 

EQU 


OOOOOOOOB 


CHARACTER LENGTH = 5 

0040 

STl 

EQU 


OlOOOOOOB 


1 STDP BIT 

0080 

ST 15 

EQU 


lOOOOOOOB 


1.5 STOP BITS 

OOCO 

ST 2 

EQU 


IIOOOOOOB 


2 STOP BITS 

0010 

PENS 

EQU 


OOOIOOOOB 


PARITY ENABLE 

0020 

PEVEN 

EQU 


OOlOOOOOB 


EVEN PARITY 

0001 

TXEN- 

EQU 


OOOOOOOIB 


TRANSMIT ENABLE 

0002 

DTR 

EQU 


OOOOOOlOB 


DATA TERMINAL READY 

0004 

RXEN 

EQU 


OOOOOIOOB 


RECEIVE ENABLE 

0010 

CLERR 

EQU 


OOOIOOOOB 


CLEAR ERROR 

0040 

USRST 

EQU 


OlOOOOOOB 


USART RESET 

0020 

RTS 

EQU 


OOlOOOOOB 


REQUEST TO SEND 


r 

; PTR, 

PTP 

, AND TTY READER CONTROLS 

0010 

0 

PTPREV 


EOU OOOIOOOOB 

; PUNCH REVERSE DIRECTION 

0020 

PTPADV 


EQU OOlOOOOOB 

; PUNCH ADVANCE 

0004 

PTRREV 


EQU OOOOOIOOB 

; READ REVERSE DIRECTION 

0008 

PTRADV 


EQU OOOOIOOOB 

; READER ADVANCE 

0002 

TTYADV 


EQU OOOOOOlOB 

; TTY ADVANCE 


; LPT, 

PTR 

AND PTP STATUS BITS 



oaol 

LPTRY 

EQU 


OOOOOOOIB 


LPT READY 

0001 

PTROY 

EOU 


OOOOOOOIB 


PTR BEADY WITH DATA 

0004 

PTPRY 

EQU 


OOOOOIOOB 


PTP READY FOR DATA 


TTY I/O constants 
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8080 MACRO ASSEMBLER, 


VER 2.3 


00F4 

TTI 

EQU 

0F4H 

f 

TTY 

INPUT DATA PORT 

00F4 

TTO 

EQU 

0F4H 

9 

TTY 

OUTPUT DATA PORT 

OOFS 

TTS 

EQU 

OFSH 

9 

TTY 

INPUT STATUS PORT 

OOFS 

TTC 

• 

EQU 

0F5H 

• 

9 

TTY 

OUTPUT CONTROL PORT 


f 

; CRT 

I/O 

CONSTANTS 




00F6 

CRTl 

EQU 

0F6H 

9 

CRT 

INPUT DATA PORT 

00F7 

CRTS 

EQU 

0F7H 

9 

CRT 

INPUT STATUS PORT 

O0F6 

CRTO 

EQU 

0F6H 

9 

CRT 

OUTPUT DATA PORT 

00F7 

CRTC 

EQU 

0F7H 

• 

9 

CRT 

OUTPUT CONTROL PORT 


; PTR 

I/O 

CONSTANTS 




00F8 

» 

PTRi 

EQU 

0F8H 

9 

PTR 

INPUT DATA PORT 

00F9 

PTRS 

EQU 

0F9H 

9 

PTR 

INPUT STATUS PORT 

00F9 

PTRC 

EQU 

0F9H 

9 

PTR 

OUTPUT COMMAND PORT 


9 

; PTP 

1/0 

CONSTANTS 




00F8 

PTPQ 

EQU 

0F8H 

9 

PTP 

OUTPUT DATA PORT 

00F9 

PTPS 

EOU 

0F9H 

• 

9 

PTP 

INPUT STATUS PORT 

00F9 

PTPC 

EQU 

0F9H 

9 

PTP 

OUTPUT COMMAND PORT 


; LPT 

I/O 

CONSTANTS 




00F4 

LPTO 

EQU 

OFAH 


LPT 

OUTPUT DATA PORT 

OOFB 

LPTS 

EQU 

OFBH 


LPT 

INPUT STATUS PORT 

OOFB 

LPfC 

• 

EQU 

OFHH 


LPT 

OUTPUT COMMAND PORT 


9 

; REAL 

TIME CLOCK CONSTANTS 





; EACH 

• 

TICK = 1.0 MS 




OOFF 

9 

PTC 

EQU 

OFFH 


REAL 

TIME CLOCK PORT 

0001 

RTCS 

EQU 

OOOOOOOIB 


REAL 

TIME CLOCK STATUS 

0002 

BOOT 

EQU 

OOOOOOlOB 


BOOTSTRAP MODE INDICATOR, 


PROGRAMMER I/Q CONSTANTS 


OOFl 

PHI 

EQU 

OFIH 

00F2 

PLO 

EQU 

0F2H 

OOFO 

PDATA 

EOU 

OFOH 

OOFl 

PSTAT 

EQU 

OFIH 

0002 

PCOWP 

EQU 

OOOOOOlOB 

0001 

PGRDY 

EQU 

OOOOOOOIB 

0020 

PSOCK 

EOU 

00lOOOOOB 

0010 

PNia 

EQU 

OOOIOOOOB 


9 

f FDCC CONSTANTS 


0079 LO-1) EQU 79H 


PROM COMMAND AND MSB ADDRESS BITS 
PROM ADDRESS BITS (8 LSB) 

PROM DATA PORT 
PROM STATUS PORT 
PROGRAMMING COMPLETE 
PROM READY 

16 PIN- SOCKET SELECTED 
SELECT UPPER NIBBLE 


; LOW(IOPB) 


t 















8080 MACRO 

ASSEMBLER, \f 

ER <^.3 

lOTELLEC/MDS 
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007A 

HI 

EDO 

7AH 

; HIGH(IOPB) 

0078 

DSTAT 

ton 

7 8H 

; DISK STATUS 

3000 

TRKO 

EOU 

30 00H 

; flRST ADDRESS OF DISK BOOTSTRAP 


9 

• 

COi'iDl 

TJ.QfJAL ASSEMBLY 

SWITCHES 

0000 

t 

f ALSE 

EOn 

0 


FFFF 

TRUE 

EUU 

MOT FALSE 


00 0 0 

debug 

£QiJ 

F A L S E 



GLQHAL CO^STAMTS 


OOFA 

.fuiiX 

EOU 

250 




250 MS. COUNTER FOR READER TIMEOUT 

GOOD 

CR 

EOv) 

0 IVh 




ASCII VALUE OF CARRIAGE RETURN 

OOOA 

LF 

EOU 

OAH 




ASCII VALUE OF LINE FEED 

0003 

ETX 

EOU 

0 3n 




MONITOR BREAK CHARACTER (CONTROL C) 


; I/O 

STATUS 

BYTE masks 

AND 

VALUES 

OOFC 

9 

CMSK 

EQU 

1.11 niOOB 




MASK FOR CONSOLE 1/0 

00F3 

RM3K 

EOU 

1 1 1 1 0 01 1 B 




MASK FOR READER INPUT 

OOCF 

PMSK 

EgU 

1 100111 IB 




MASK FOR PUNCH OUTPUT 

003F 

LMSK 

EOU 

0011 111 IB 




MASK FOR LIST OUTPUT 

0000 

t 

cxn 

EQi; 

OOOOOOOOB 




CONSOLE I/O = TTY 

0001 

CCRT 

EQii 

OOOOOOOlB 




CONSOLE I/O = CRT 

0002 

BA rcri 

EOU 

0000001 OB 




BATCH MODE, 








INPUT = READER, OUTPUT = LIST 

0003 

CUSE 

EQU 

0000001 IB 




USER DEFINED CONSOLE I/O 

0000 

RTTY 

EOU 

OOOOOOOOB 




READER = TTY 

0004 

HPTR 

EOU 

OOOOOIOOB 




READER = PTP 

0008 

RUSEl 

EQU 

OOOOIOOOH 




USER DEFINED READER (1) 

OOOC 

RUSE2 

EOU 

000011oob 




USER DEFINED READER (2) 

0000 

PITY 

EQU 

000000008 




PUNCH = TTY 

0010 

PP'iP 

EOU 

nOOlOOOOB 




PUNCH = PTP 

0020 

PU oE 1 

EOU 

00100000b 




USER DEFINED PUNCH (1) 

0030 

PUSS2 

c:gu 

001lOOOOb 




USER DEFINED PUNCH (2) 

0000 

LTn 

EOU 

OOOOOOOOB 




LIST = TTY 

0040 

LCRT 

E y u 

OlOOOOOOB 




LIST = CRT 

0080 

LLP I 

EQU 

lOOOOOOOB 




LIST = LPT 

OOCO 

LUSE 

EOU 

1 lOOOOOOB 




USER DEFINED LIST 


; INTERRUPT 

S T S T E M M A S K 5 

AND 

VALUES 

0001 

f 

INTO 

ECU 

OOOOOOOlB 


1 


MASK FOR INTERRUPT LEVEL 0 

0002 

INTI 

EOU 

0000001 Ob 





0004 

iNr2 

EQU 

iJOOOOlOOH 





0008 

I NT 3 

EQU 

OOOOIOOOB 





0010 

INTI 

EOU 

OOOlOOOOB 





0020 

I N TS 

EQU 

OOlOOOOOb 





0040 

INTO 

EOU 

OlOOOOOOB 
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0080 

INT7 6UU 

lOOOOOOOB 


OOFC 

MASK EQU 

OFCH 

MASK PORT 

OOFD 

REVRT EQU 

OFDH 

INTERRUPT REVERT 

OOFE 

LOCK EQU 

OFEH 

BUS OVERRIDE 

OOFA 

ISTAT EOU 

OFAH 

INTERRUPT STATUS PORT 

00F3 

ICON FQU 

0F3I) 

INTERRUPT CONTROL PORT 

0020 

FOI EQU 

00lOOOOOB 

END OF INTERRUPT VALUE 


t 

; INTERRUPT 

STATUS AMD CONTROL 

BITS 

0001 

ITTYQ EOU 

OOOOOOOIB 

OUTPUT TTY 

0002 

iTTYI EQU 

OOOOOOIOB 

INPUT TTY 

0004 

IPTP EQU 

000001003 

PTP 

0008 

IPTR EQU 

OOOOIOOOB 

PTR 

0010 

iCHTU EQU 

OOUIOOOOB 

OUTPUT CRT 

0020 

ICRTi EQU 

oolOGOOoa 

INPUT CRT 

0 0 40 

ILPT EQU 

01OOOOOOB 

LPT 

0080 

flENB EQU 

tOOOGOOOB 

ENABLE MONITOR INTERRUPTS 








t 

; PAGE 0 DEDICATED RAM LOCATIONS, INITIALIZED BY SHADOW PROM CODE. 

0000 

ORG 

0 


0000 

RESF.T: 



0003 

DS 

3 

TRAP TO MONITOR RESTART 

0003 

IOBYT: 



0001 

DS 

1 

I/O SYSTEM STATUS BYTE 

0004 

msk; 


PROM PROGRAMMING T/F FLAG 

0004 

memtop: 



0002 

DS 

2 

TOP OF RAM, ONLY H SAVED 

OOOn 

initio: 



0001 

DS 

1 

INITIAL I/O CONFIGURATION 


, 



; t f _ If 



, 

; MACRO 

* 

DEFINIriONS 


1 

, 

FETCH MACRO 

VALUE 

FETCH AN ADDRESS IN THE STACK 

1 

LX I 

H, VALUE 


1 

DAD 

SP 



EM DM 



1 

GET MACHO 

VALUE 

COMPUTE RAM ADDRESS BASED ON STACK 

1 

LHLD 

MEMTOP 


1 

MV I 

L,VALUE AND OFFH 



EH DM 
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ASSFIMBLEH, VER 2.3 

INTELLEC/MDS 
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1 

WHILE MACRO 

CHAR 


SCAN input while EQUAL 

] 

LOOP: 




1 


CALL 

TT 



1 


CPI 

CHAR 



1 


JZ 

LOOP 





ENDH 




1 

f 

UNTIL MACRO 

CHAR 


SCAN INPUT UNTIL EQUAL 

1 

LOOP; 




1 


CALL 

TI 



1 


CPI 

CHAR 



1 


JNZ 

LOOP 





ENOM 




1 

f 

SIZE MACRO 



FIND TOP OF MEMORY 

1 


LXi 

H,0 

1 

INITIAL VALUE 

1 

LOOP: 




1 


I NR 

h 



1 


MOV 

A,M 


FETCH CONTENTS OF MEMORY 

1 


CM A 



INVERT IT 

1 


MOV 

M , A 


ATTEMPT TO WRITE INTO MEMORY 

1 


CMP 

•A 


IS LOCATION READ/WRITE? 

1 


CM A 



INVERT AGAIN 

1 


MOV 

M,A 


WRITE DATA BACK 

1 


JZ 

LOOP 


YES, CONTINUE 

1 


OCX 

H 


LAST ADDRESS IN RAM 

1 


SHLO 

MEMTOP 


STORE TOP OF MEMORY 



ENDM 






CASE BRANCH 

MACRO 





INPUT parameters; 





RP.GISTER A 

- CASE INDEX, 

0 . , . N 



PARAMETER 1 

- ADDRESS OK 

BRANCH TABLE 



PARAMETER 2 

- LENGTH OF 

BRANCH TABLE 



USES REGISTERS A,0,E,H,L 



1 

C 

:ASE MACRO 

TABLE,RANGE 



1 


LXI 

H,TABLE 



1 


CPI 

RANGE 


TEST FDR OVERRUN 

1 


JP 

ERROR 



1 


MOV 

E,A 


MOVE INDEX TO DE 

1 


MVl 

D,0 



1 


DAO 

D 


ADD BASE + 2 ♦ INDEX -> HL 

1 


HAD 

n 



1 


MOV 

A,M 


GET LSB OF BRANCH LOCATION 

1 


IHX 

H 



1 


MOV 

H,M 


GET MSB OF BRANCH LOCATION 

1 


MOV 

L, A 



1 


PCHL 



TAKE THE BRANCH 



ENIiM 
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ADDRESS CONSTANTS FOR VERSION 1.2 ONLY 





THE FOLLOVJIMG FOUR ADDRESSES ARE INSERTED FOR ASSEMBLING 




THE VERSION 1.2 BOOTSTRAP PROM CODE ONLY. THEY SPECIFY THE 




ADDRESSES OF THE THREE ROUTINES IN THE MONITOR ROM 




NHICH 

ARE CALLED FROM THF BOOTSTRAP PROM. THESE ARE THE 




ADDRESSES OF THESE ROUTINES IN THE VERSION l.X MONITOR ROM 

FF3 7 


1 

RESTART 

EQU 0FF374 

FD42 


TTYOUT 

EOU 0FD42ri 

FD59 


CPTOUr 

EQU OFD59H 

F800 


r 

^LGIN 

EO'l OteOOH 









♦ - jf - ♦ , t - ♦ - ¥ 





SHADOW PRO 

M CODE 

0000 



S3 A St; SET 

0 

0000 



ORG 

S3ASE 




FUNCi ions: 





A. 

irUTIALIZE INTERRUPT SYSTEM. 





1. PROGRAM INTERRUPT SUBSYSTEM (8259) 





2. MASK ALL INTERRUPTS BUT TRAP LOGIC 

0000 

C306n0 


J'VIP 

SHO ; BRANCH AROUND STATUS BYTE 

000 3 

0 0 

IN IT; Do 

0 ; INITIALLY, 





; CONSOLE = TTY, 





: READER = TTY, 





; PUNCH = TTY, 





; LIST = TTY 

000 4 

0916 


DW 

DATE ; DATE STAMP FOR BOOTSTRAP PROM 

0006 



sho : 


0006 

F3 


DI 

; DISABLE INTERRUPT SYSTEM 

0007 

3E12 


MV I 

A,12H ; INITIALIZE COMMAND 

0009 

D3FD 


OUT 

REVRT 

OOOB 

AF 


XRA 

A 

OOOC 

AF 


XRA 

A 

GOOD 

D3FC 


OUT 

MASK 

HOOF 

3EFE 


MV I 

A,NOT INTO 

0011 

D3FC 


OUT 

MASK 

0013 

3 EDO 


MVl 

A ,0 

0015 

D3F3 


OUT 

ICON 


B. ftMlTIALIZE RAM. 
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t 


1. COMPUTE SIZE OF RAM MEMORY. 


1 


t 

+ 

SIZE 



0017 

1 

210000 

+ 

LX I 

H,0 

INITIAL VALUE 

001 A 

1 


+ LQCJP 

: 



OOIA 

1 

24 

+ 

TOR 

H 


0018 

1 

7E 

f 

!•!C) V 

A , M 

FETCH CONTENTS OF MEMORY 

001C 

1 

2F 

+ 

C A 


INVERT IT 

00 ID 

1 

77 

+ 

4 0 w 

M , A 

ATTEMPT TO WRITE INTO MEMORY 

00 IE 

1 

BE 


CMP 


IS LOCATION READ/WRITE? 

001 F 

1 

2F 

+ 

C4A 


INVERT AGAIN 

QO/O 

1 

77 

+ 

MOV 

M , A 

WRITE DATA BACK 

00 21 

] 

CAlAOO 

+ 

JZ 

LOOP 

YES, CONTINUE 

00 2 4 

1 

2 b 

t 

OCX 

H 

LAST ADDRESS IN RAM 

0025 

1 

220400 

t 

SHLD 

MEMTGP 

STORE TOP OF MEMORY 






2. SET UP DEDICATED MEMORY LOCATIONS 




• 


USER I/O 

ENTRY POINTS (TOP OF MEMORY) 




§ 


EXIT TEMPLATE 




• 

9 


USER REGISTERS 




• 

$ 


USER iUTEPRUPT MASK 




9 


(JSEH STACK 




9 


MONITOR STACK 

0028 


01C800 

9 

LXl 

B,TOS 

MOVE EXIT TEMPLATE TO RAM 

0028 


60 


f 1U V 

L,C 


002C 


F9 


SPHL 


SET STACK 

0020 



SHI : 




0020 


OA 


ldax 

H 


0026 


77 


MOV 

M , A 


002F 


oc 


l‘'W 

c 

MOVE BOTH POINTERS 

0030 


2C 


IMP 

L 


00 31 


C22D00 


JMZ 

SHI 

END ON PAGE BOUNDARY 

0034 


2bDl 


M \/ ] 

L.SLOC 

SET UP INITIAL VALUE FOR USER STACK 

0036 


74 


Mi'fV 

M , M 

LOWER HALF OF STACK POINTER IS KNOWN 

00 3 7 


35 


DCF 

M 








MEREbY SET UPPER HALF. 




9 

9 


TRAP TO MONITOR (0-2) 

0038 


3EC3 

9 

f'^VT 

A,(JMP RESTART) 


00 3 A 


320000 


S f A 

RESET 


003D 


2137FF 


LXJ 

H,RESTART 

SET UP RESTART 0 FOR BREAKPOINT 

0040 


220100 


SHLD 

PESET+1 

LOGIC 




t 

f 

n 

PROGRAM i/0 DEVICES. 






1. USART FOR CRT 





t 


2. USART FOR TTY 


0 0 4 3 


3E4F 

t 

4 VI 

A,ST1 OR R24@l OH CL8 

0 045 


D3F7 


UUT 

CRTC 
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0047 

3ECE 



MVl 

A,ST2 OR RllO 

OH CT.8 

0049 

D3F5 



OUT 

TJ'C 


004B 

3E27 




A,TXLn or dtr 

OR RXEiM OR RTS 

004D 

D3F7 



OUT 

CRTC 


00 4F 

D3F5 



UUT 

TIC 







3. HIGH SPEED 

READER 






A. HIGrl SPEED 

PUMCH 






5. TTY READER 


0051 

AF 



XRA 

A 


005 2 

D3F9 



OUT 

ptrC 






D. 

LOAD ISIS.TO IF DISKETTE 0 IS READY 

0054 

Ub78 



1 i'l 

DST A i. 

; SAMPLE FDCC STATUS 

005b 

OF 



HHC 



0057 

U26800 



JBC 

SH3 


005 A 

3EAA 



MVl 

A , lOPB 


005C 

D379 



OUT 

LOE 

; LOW(iOPB) 

005E 

AF 



XRA 

A 


005E 

D37A 



OUT 

HI 

; HIGH(IOPb), START DISK I/O 

0061 


SH2; 




0061 

087 8 



lu 

DSTAT 

; WAIT FOR FDCC TO COMPLETE 

0063 

E604 



Af'iJ 

4 


0065 

CA6100 



JZ 

Sh2 




i 


E. 

DETPHiMINE COLD 

START CONSOLE. 

0068 


( 

< 

>H3: 




0068 

210300 



LXI 

h,IOHYT 

; POINT AT I/D STATUS 

OObB 

56 



Mnv 

D,f'. 

; FETCH INTO D 

OObC 

DBFS 



In 

ITS 


OOdE 

E602 



A1 

DBF 


00 70 

CA7800 



JZ 

SH4 

; NOT TTY 

0073 

DBF4 



JN 

TTI 

; GET CHARACTER FROM TTY 

0075 

C38200 



JMP 

SH5 


0073 


SH4 ; 




0078 

14 



ii\;B 

D 

; lOBYTE = CRT 

0079 

DbF7 



1 

CRTS 


007B 

E602 



AN 1 

RBH 


007U 

CA6800 



JZ 

Sh3 

; NOT CRT 

0030 

UBFb 




CRT I 

; GET CHARACTER FROM CRT 

0082 


SH5: 




0082 

E67F i 



AN 1 

7Fh 


0084 

FE20 



CPI 

' ' 


0086 

C26B00 



JUZ 

SH3 


0089 

72 




, D 

REPLACE MODIFIED I/O STATUS BYTE 

00 8 A 

2E0b 



M V I 

I , IMl'J 10 


008C 

72 



MOV 

M , U 

; SET INITIAL I/O CONFIGURATION 
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E, IF DISK IS READY, TRANSFER TO ISIS.TO 


008D 

L)B7 8 

i iv 

DSTAT 



OOfsF 

OF 

RPC 




0090 

DA0030 

JC 

TRNO 




f 

f 

G , 

TYPE SIGN- 

Uw FOP 

RAM MONITOR 

0093 

9 

2E61 

■^vi 

L,VERS 

1 

ADDRESS OF MESSAGE 

0095 

Ofal 5 

MV I 

B,LVER 


LENGTH OF MESSAGE 

0097 

SHo : 





0097 

4E 

MOV 

C , M 

1 

GET A CHARACTER 

0098 

7 A 

MOV 

A,L' 


TEST CONSOLE SELECTION 

0 099 

OF 

hrc 




00 9A 

0442FD 

CMC 

TTYOUT 

( 

PRINT or: TTY IF TTY IS CONSOLE 

009D 

Ik 

'10 v 

A , L) 



009F 

Of 

RhC 




009F 

DC59FL) 

"r 

CRTCUT 


PRINT ON CRT IF CRT IS CONSOLE 

00A2 

23 

\ I: X 

H 



00A3 

05 

nCK 

F 



00A4 

€29700 

J H Z 

SHb 




; 

H , 

BRANCH TO 

MOM IT01 


00A7 

C300F8 

Jf'iP 

oEGlivi 


INTERRUPTS APE DISABLED. 


9 

DISK 

I/O RABAMETFR 

BLOCK 


OOAA 

IUPB: 





OOAA 

8u 

Do 

80 H 


lOCW, NO UPDATE BIT SET 

00 AB 

O'i 

Do 

049 


I/O INSTRUCTION, READ DISK 0 

OOAC 

lA 

DB 

2b 


READ 2b SECTORS 

GOAD 

00 

DR 

0 


TRACK 0 

00 AE 

01 

Q.B 

1 


SECTOR 1 

OOAF 

0030 

OW 

TPEO 


LOAD ADDRESS 


f 

f 

BPS |- 

Hji-ilTOF SIGD-ON MESSAGE 

OObl 

9 

0U0A4!)44 VPJHS: 

DR 

CH,LF,'MDS 

FOWITOP, '/' 

00b5 

5 32 0 ■1D4F 





00B9 

4 E 4 9 5 4 4 F 





OOHD 

522C2{i56 





OOCl 

31iFi2 

D B 

VER/10+'0' 

,'. ' ,VFR MOD 10+ '0 ' 

0 0C4 

ODU A 

Db 

CP ,Lf 



0015 

TVER 

EQD 

$-VEPS 


LENGTH OF SIGN-ON MESSAGE 




EXir COOK IF'-'PbAie, TO BE EXECUTED IN RAM 
THIS CfOE IS URiGlNATEU SO AS TO bE ALIGNED 
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, VEP 2.3 IM'IELI.EC/MDS MOi\iIT()R, VERSION 1.2, 


; AGAINST THE TOP OF A PAGE 


00C8 



□ KG 

SBASE+OCbh 


00C8 


9 

TDS; 



; BASE OF MorjiTOR WORK STACK 

ooco 


USER, 

EOU 

rus-8 

; BASE OF DEFAULT USER WORK STACK 

00C8 

EE 

ELOC : 

DB 

0 E E H 

; E REGISTER STORAGE 

0 0C9 

DO 

DI.IJC; 

Oh 

ODDm 

; D REGISTER 

OOCA 

CC 

cunc; 

Db 

OCCH 

; C REGISTER 

OOCB 

bB 

BLOC : 

L'B 

OBBri 

; B REGISTER 

UOCC 

0 0 


Db 

0 

; UNUSED BYTE 

OOCP 

FE 

IbUC: 

DE> 

HOT INTO 

; interrupt mask 

OOCE 

FF 

FLUC : 

Dh 

OFFU 

; CPU FLAGS 

OOCF 

AA 

A LUC : 

DB 

OAAM 

; A REGISTER 

OODO 

CO 


Db 

uS'EF 

; l.(JW(SP) 

0001 

00 

SLOC: 

Db 

0 

; HlGh(SP) 

00D2 


9 

Exirr 



; MONITOR STACK ORIGIN 

00D2 

E 3 


Di 


; DISABLE TO PROTECT THIS SEQUENCE 

0003 

01 


PGP 

D 

; RESTORE D,E 

0004 

Cl 


POP 

B 

; RESTORE. B,C 

00D5 

FI 


POP 

PSW 

; RESTORE INTERRUPT MASK 

00D6 

D3FC 


OUT 

MASK 


0008 

FI 


POP 

PSW 

; RESTORE A AND FLAGS 

0009 

El 


POP 

li 

; RESTORE ORIGINAL STACK VALUE 

OODA 

FR 


SPHL 



OODH 

213412 


LXJ 

H,12 1 4 H 

; RESTORE H,L 

00 DC 


LLOC 

FQ[J 

$-2 


OODO 


hlcjc 

EQD 

$-1 


OOoE 

FB 


El 


; ENABLE INTERRUPTS 

OOOF 

C3b967 


JMP 

6789H 

; RETURN TO INTERRUPTED CODE 

OOEl 


PLQC 

EQU 

S-1 


00E2 

0000 

TLOC : 

D a’ 

0 

; TRAP 1 ADDRESS 

00E4 

00 


DB 

0 

; TRAP 1 VALUE 

00E5 

0000 


ijiv 

0 

; TRAP 2 ADDRESS 

O0K7 

00 


L)B 

0 

; TRAP 2 valuf: 


; EX TENS If-LE L/C) b ivTEY POINTS 


00E8 


XT8L: 


00E8 


Cl LUC; 


00E8 

C30000 

JMP 

0 

OOEB 


cobOC; 


OOEB 

C30000 

J/.F 

0 

OOEE 


RlLOC: 


OOEE 

C3UOOO 

JM? 

0 

OOFl 


P2-LGC: 


OOFl 

C30000 

JMP 

0 

OOF4 


PI LOG; 


00F4 

C30000 

'JMP 

0 

OOF 7 


P2L0C: 
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00F7 C30000 JMP 0 

OOFA LILOC: 

OOFA C30000 JMR 0 

OOFD CSLOC: 

OOFD C30000 JMP 0 

0100 ENDX; ,* THIS LABEL SHOULD BE AT lOOH. 

; END OF SHADOW PROM CODE 

END 

NO PROGRAM ERRORS 
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SYMBOL TABLE 

♦ 01 


A 

0007 


ALOC 

OOCF 

♦ 

B 

0000 


BATCH 

0002 

♦ 

BEGIN 

F800 


BLOC 

OCCB 

♦ 

BOOT 

0002 

♦ 

C 

0001 


CASE 

OFl 4 

♦ 

CCRT 

0001 

♦ 

Cl LOC 

00E8 

♦ 

CL5 

0000 

♦ 

CL6 

0004 

♦ 

CL7 

0008 

* 

CLS 

OOOC 


CLERR 

0010 

* 

CLOC 

OOCA 

♦ 

CMSK 

OOFC 

♦ 

CCILOC 

OOEB 

♦ 

CR 

0000 


CRTC 

00F7 


CRT I 

00F6 


CP TO 

00F6 

♦ 

CRTOU 

FD59 


CRTS 

00F7 


CSLOC 

OOFD 

♦ 

CITY 

0000 

♦ 

CUSE 

0003 

♦ 

D 

0002 


DATE 

1509 


DEBUG 

0000 

♦ 

DLOC 

00C9 

* 

DSR 

0080 

♦ 

DSTAl 

0078 


DTP 

0002 


E 

0 00 3 


ELOC 

00C8 

♦ 

ENDX 

0100 

♦ 

EOI 

0020 

♦ 

ETX 

0003 

♦ 

EXIT 

00D2 

* 

FALSE 

0000 


FETCH 

0F9C 

♦ 

FLOC 

OOCE 

♦ 

GET 

0F95 

♦ 

H 

0004 


HI 

007A 


HLOC 

OODD 

♦ 

ICON 

00F3 


ICRTI 

0020 

♦ 

ICPTG 

0010 

♦ 

ILOC 

OOCD 

♦ 

ILPT 

0040 

♦ 

iNir 

0003 

♦ 

INITI 

0006 


INTO 

0001 


INII 

0002 

♦ 

1NT2 

0 00 4 

♦ 

INT3 

0008 

♦ 

1NT4 

0010 

♦ 

INT5 

0020 

♦ 

INT6 

0040 

¥ 

INT7 

0080 

♦ 

lOBYT 

0003 


lOPB 

OOAA 


IPTP 

0004 

♦ 

IPTP 

0008 

♦ 

ISTAT 

OOFA 

♦ 

ITTYI 

0002 

♦ 

I TT YO 

0001 

♦ 

L 

0005 


LILQC 

OOFA 

♦ 

LCRT 

0040 

♦ 

LF 

000 A 


LLQC 

OODC 

♦ 

LLPT 

0060 

♦ 

LMSK 

003F 

♦ 

LOCK 

OOFE 

♦ 

LOW 

0079 


LPTC 

OOFB 

♦ 

LPTO 

OOFA 

♦ 

LPTRY 

0001 

♦ 

LPTS 

OOFB 

♦ 

LTTY 

0000 

♦ 

LOSE 

ooco 

♦ 

LVER 

0015 


!■' 

0006 


MASK 

OOFC 


MEMTO 

0004 


MENS 

0080 

♦ 

MSK 

0004 

♦ 

PILOC 

00F4 

•♦ 

P2L0C 

OOF7 

♦ 

PCOMP 

0002 

♦ 

PDAT A 

OOFO 

♦ 

PENB 

0010 

♦ 

PEVEN 

0020 

♦ 

PGPUY 

0001 

♦ 

PHI 

OOFl 

♦ 

PLO 

00F2 

♦ 

PLQC 

OOEl 

♦ 

PMSK 

OOCF 

♦ 

PiUB 

0010 

♦ 

PPTP 

0010 

♦ 

PSOCK 

0020 

♦ 

PSTAT 

OOFl 

♦ 

PSW 

0006 


PTPAD 

0020 

♦ 

PTPC 

00F9 

♦ 

PIPO 

00F8 

♦ 

PTPRE 

0010 

♦ 

PTPRY 

0004 

♦ 

FTPS 

00F9 

* 

PTRAD 

0008 

♦ 

PTPC 

OOF9 


PTRDY 

0001 

♦ 

PTRl 

00F8 

♦ 

PTRRE 

0004 

♦ 

PTHS 

00F9 

♦ 

PTTY 

0000 

♦ 

PUSEl 

0020 

♦ 

puse 2 

0030 

♦ 

PllO 

0002 


R12P2 

0001 

♦ 

R1 LOC 

OOEE 

♦ 

P24Lai 

0003 


R2L0C 

OOFl 

♦ 

R3@2 

0003 

♦ 

R4Sai 

0002 

♦ 

R6La2 

0002 

♦ 

P96rat 

0001 

* 

RBR 

0002 


RESET 

0000 


PESTA 

FF37 


PEVPT 

OOFD 


RFR 

0020 

♦ 

PMSK 

00F3 

♦ 

ROV 

0010 

♦ 

RPAR 

0008 

♦ 

RPTR 

0004 

♦ 

RTC 

OOFF 

♦ 

RTCS 

0001 

♦ 

RTS 

0020 


RTTY 

0000 

♦ 

RUSEl 

aoo8 

♦ 

RUSE 2 

oooc 

♦ 

HXEN 

0004 


SBASE 

0000 


SHO 

0006 


SHl 

002U 


SH2 

0061 


SH3 

0068 


SH4 

0078 


SH5 

0082 


SH6 

0097 


SIZE 

()F47 


SLUG 

OODl 


SP 

0 00 6 


STl 

0040 


ST15 

0080 

* 

ST2 

ooco 


TBE 

0004 

♦ 

TLOC 

OOE2 

♦ 

TOS 

00C8 


TOUT 

OOFA 

♦ 

TRDY 

0001 

♦ 

TRKO 

3000 


TRUE 

FFFF 

♦ 

TTC 

OOFS 


TTI 

00F4 


TTO 

00F4 

♦ 

TTS 

OOFS 


TTYAD 

0002 

♦ 

TTYOU 

FD42 


TXEN 

0001 


UNTIL 

OF 86 

♦ 

USER 

OOCO 


USRST 

0040 

♦ 

VER 

OOOC 


VERS 

OOBl 


WHILE 

OF BE 

♦ 

XTBL 

00E8 

♦ 








♦.0 2 


LOOP OOIA 


0 PAGE 1 




* 09 

♦ 10 

♦ 11 

* 12 

♦ 13 

♦ 14 

♦ 15 

♦ 16 

♦ 17 

* 18 

t 


t 
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PARE 1 


0020 


OPR 

20H 


0020 

OBOO 

LOO^^: 

IN 

OH 

0022 

*^F 


MOO 

C> A 

0023 

DBO i 


IN 

01 H 

0025 

8 I 


ADI) 

C 

0026 

D300 


OUT 

OH 

0028 

9 I 


SOB 

C 

0029 

9l 


SOB 

C 

00 2A 

l)30 I 


DOT 

01 H 

002C 

032000 


JHP 

LOOP 

0020 



Ei\f I) 

LOOP 


7^ J^/P^'~r ^ 56 / ^^ 

-' /^/^Oyn //u/?uT' MZ 7 /^^ p/S/^l/^Z 77f^ S0^1 

/}aIP^ P / F rC/^CA/C ^ ./f 7” a^' J^y~T -/r/2^^ b/^/zh 



P/^0 (r- /f/f ■ jv /f c("-e^~r' 

7^ te Tjfe (/lAifi ^/tJ 7?fw^^ 

S^c- iajcp^^ s/?c/(k:/f'7i)S'. 


T?rt 

77nr' 


5 07 
ss 



ORG 

5 OH 

CO 

irntT 

OTHOQH 

Cl 

ROM 

0 FH 03 H 

5TA^T: 

MV I 

D^06K 


LX I 

SP^OPOOH 

OHIAD: 

C‘^LL 

Cl •' 


PUSH 

P.GW 


MOV 

C>A 


CALL 

CO 


OCR 

D 


fJNZ 

READ 


MV I 

C^ODH 


CALL 

CO 


MV I 

C', 0 AH 


CALL 

CO ■ 


WI 

E^06H 

PRINT: 


PS^'^ 


MOV 

C> A 


CALL 

CO 


DCR 

K 


OMZ 

^->R IMT 


fvu; I 

C^ ODri 


GALL 

CO 


ilVI 

C> UAH 


CALL 

CO 


JMP 

start 


RMS^ 

5 OH 


< 
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0050 


OHG 

5 OH 


F8 09 


CO 

EO!J 

0F809il 

F8(,)3 


GI 

EOO 

0F803H 

00 50 

1 60 6 

START: 

i\y I 

D> 06H 

0 0 5 2 

3 1 0002 


LX I 

SP>0200H 

0 05 5 

0003K3 

READ: 

CALI,. 

Cl 

00 5 8 

F5 


>MJSH 

PSW 

005 9 

OF 


MOO 

A 

00 5 A 

C0G9F8 


CALL 

CO 

0 0 5 0 

1 5 


OCR 

!3 

00 5E 

C25500 


JNZ 

READ 

00 61 

OEOD 


MV I 

C>ODH 

00 63 

CD09F8 


CALL 

CO 

00 66 

050 A 


M5/1 • 

C^OAK 

00 63 

G009F8 


CALL 

CO 

00 6R 

1 50 6 


MV I 

E^06H 

00 6D 

FI 

PRIMTt 

POP 

PSV 

00 65 

0 F 

* 

MOV 

C ^ A 

■- 00 6F 

CD09F8 


CALL 

CO 

00 72 

1 D 


OCR 

E 

007 3 

C26D00 


JiXfZ 

PRINT 

I 00 7 6 

OEOD 


MV I 

C^ODH 

0078 

CD09F6 


CALL 

CO 

007B 

OEOA 


MV I 

C^OAH 

00 7 D 

CD09F8 


CALL 

CO 

0080 

C35000 


JMP 

START 

0050 



END 

50H 



